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e danno in uscita il numero t, lunghez¬ 
za relativa del segmento nella direzione 
libera trovata; è necessario in tutti e 
due i casi decrementare di 1 la variabile 
t. Si tenga presente, infatti, che FOR 
n = 1 TO 100; NEXT n: PRINT n scrive¬ 
rebbe 101. 

IL SECONDO PROGRAMMA 

Una volta che si faccia funzionare il pri¬ 
mo programma, si nota un particolare, 
tanto più rilevante quanto più estese 
sono le figure da riempire; durante l’ela¬ 
borazione. il cammino esegue spesso 
delle spirali involutorie. e. una volta ter¬ 
minate. rimane a lungo fermo. Alla luce 
della conoscenza del funzionarrìento 
del programma questo evento è chiaro, 
e rappresenta una duplice perdita di 
tempo; prima nel disegnare la spirale, 
poi. di più ancora, nel percorrere a ri¬ 
troso la spirale nella ricerca di direzioni 
libere. Un’idea per risolvere questo in¬ 
conveniente è la seguente; quando il 
programma si «accorge» di disegnare 
una spirale, allora ne riempie diretta- 
mente e semplicemente l’interno, evi¬ 
tando così di percorrerla sia in senso di¬ 
retto che in senso inverso. Questo av¬ 
viene nel secondo programma, che. an¬ 
zi. fa anche qualcosa in più; il program¬ 
ma cerca, per quanto possibile, di indi¬ 
viduare il maggior numero possibile di 
queste spirali; si è dovuto, a questo pro¬ 
posito. infrangere l’asserto che i nodi fi¬ 
gli di uno stesso padre siano ordinati a 
priori, per decidere volta per volta l’or¬ 
dinamento che più conviene allo svolgi¬ 
mento del programma. 

Bisogna, a questo punto, osservare che 
il secondo programma riempie corret¬ 
tamente solo figure semplicemente 


connesse ( = senza buchi), infatti, se 
una spirale avvolge un buco, il secondo 
programma lo riempie, mentre il primo 
lo lascerebbe intatto. Spesso però, una 
figura con buchi può essere facilmente 
ricondotta a una semplicemente con¬ 
nessa disegnando opportunamente 
qualche segmento; per esempio la fig. 
3a) non è semplicemente connessa, la 
fig. 3b) invece lo è. 

Non starò qui a dare una descrizione 
minuziosa anche del secondo program¬ 
ma. che comunque il lettore potrà in¬ 
terpretare alla luce di quanto detto. C’è 
da dire invece che le modifiche accen¬ 
nate ne appesantiscono notevolmente 
la struttura e quindi ne rallentano la ve¬ 
locità. per cui risulta veramente più uti¬ 
le solamente quando si tratti di riempi¬ 
re figure abbastanza grandi e di grande 
area rispetto al perimetro. Nel caso di 
figure piccole (come quella dell’esem¬ 
pio) l’elaborazione è addirittura più len¬ 
ta. mentre per riempire tutto lo scher¬ 
mo il tempo è di 7-8 minuti contro 
un’ora e un quarto del primo program¬ 
ma. 

ALCUNE NOTE 

Per chi avesse problemi di occupazione 
di memoria (in genere i possessori del 
16k). la matrice a (200.2) causa qual¬ 
che problema; infatti da sola occupa 2k 
di memoria. La soluzione proposta, che 
è quella del listato 3. consiste nel tra¬ 
sformare la matrice a., da numerica a 
matrice di caratteri; per far questo però 
è necessario cambiare il funzionamento 
del puntatore da relativo ad assoluto. Il 
programma proposto occupa così circa 
1500 bytes. di cui solo 500 di variabili. 
Chi possedesse un altro computer, per, 


quanto riguarda la conversione del pro¬ 
gramma tenga presente le seguenti no¬ 
te sulla grafica dello Spectrum; 

10 schermo è costituito da 256x176 pi¬ 
xel. che vanno da 0 a 175 per le ordina¬ 
te; così a questi numeri devono essere 
sostituiti quelli relativi al computer in 
proprio possesso; attenzione alle linee 
610 e 710; si legga, ad esempio 

610 FOR t - -1 TO 0-y STEP -1 e lo ze¬ 
ro deve essere sostituito dal numero 
opportuno; 

l’istruzione PLOT x.y disegna il pixel di 
coordinate x.y; 

l’istruzione DRAW a.b disegna, a partire 
dall’ultimo punto disegnato (siano x e y 
le sue coordinate) un segmento di retta 
fino al punto di coordinate k + a.y -i- b; 
la funzione booleana; 

POINT (x.y) dà 1 ( = condizione vera) se 

11 pixel di coordinate k.y è acceso (cioè 
disegnato). 0 ( - condizione falsa) altri¬ 
menti. 




Chi avesse proprio problemi di velocità, 
oltre a riscrivere il programma in As- 
sembly. può soltanto riscriverlo parzial¬ 
mente. quanto basta perché sia accet¬ 
tato da un compilatore. I compilatori 
sono spjesso utili (personalmente uso 
MCODER II), a patto però di rinunciare 
ad alcune comodità; in genere usano 
solo piccoli numeri fhteri. non hanno 
matrici pluridimensionali, eccetera; ma. 
a meno che non si abbia proprio la ne¬ 
cessità di lavorare con i numeri in virgo¬ 
la mobile, questi problemi si possono 
facilmente superare. Il difetto principale 
è che. in genere, per eseguire un pro¬ 
gramma compilato occorre che il com¬ 
pilatore stesso sia in memoria. 


Corrado Zanella 


--B- 

CAMBIO DELLA GUARDIA SUL FRONTE TEXAS 


[_ opo aver condotto per oltre un an¬ 
no e mezzo la rubrìca su! Software Te¬ 
xas Instruments TI99/4A — rubrica che 
ho personalmente visto nascere e cre¬ 
scere in spazio e contenuti accompa¬ 
gnandola fin dal numero 34 di m&p — 
non sarei certamente sincero se, abban¬ 
donandola, dicessi di non avere rim¬ 
pianti. 

Da quel «lontano» giugno del 1983, 
quando con il precedente Direttore Di 
Pisa ero entrato ufficialmente in colla¬ 
borazione con m&p, ad oggi, fredda 


giornata di gennaio di questo nuovo 
1985, le cose sono cambiate parecchio, 
e non solo per l'avvento del dinamico 
Boss Gualtiero Rudella: allora doveva an¬ 
cora esplodere la moda (o mania) del 
personal computer, il fenomeno che 
durante quell'inverno avrebbe condizio¬ 
nato l'intero mercato informatico italia¬ 
no, dando luogo ad una vera e propria 
«caccia al personal» (ve ne ricordate?), 
e le riviste specializzate in questo cam¬ 
po si potevano contare sulle dita di una 
mano. Attualmente le edicole trabocca¬ 


no di fascicoli, nastri magnetici, libercoli 
e materiale vario che a stento è possibi¬ 
le distinguere: è quello che può essere 
drasticamente riassunto e definito co¬ 
me «sciacallaggio editoriale». Il discorso 
vale soprattutto per il Software: vende¬ 
re programmi per mezzo delle edicole 
non sarà forse qualificante, ma certa¬ 
mente redditizio: e visto che i compu¬ 
ter, adesso, li vende anche il droghiere, 
perché non farlo? 

Attenzione però: una cosa è vendere 
software (con la esse minuscola), un’af- 
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tra è fare una Rivista (con la erre maiu¬ 
scola). m&p (e qualcun altro ad onor 
de! vero) in edicola non si mescola con 
la folla di neonati giornalini informatici, 
proprio come l'olio non può essere mi¬ 
schiato con l'acqua. 

Nello spazio che m&p mi ha riservato, 
ho sempre voluto sottolineare il mio, il 
nostro impegno, considerando solo 
marginalmente la pubblicazione di ba¬ 
nali listati da copiare, e cercando piut¬ 
tosto di coinvolgere personalmente 
ogni singolo lettore, affrontando argo¬ 
menti oscuri ancora da scoprire edito¬ 
rialmente ne! parlare de! buon vecchio 
Tigg. 

Devo dire con orgoglio che la cosa ha 
funzionato, centrando in pieno il bersa¬ 
glio prefissato: tantissimi lettori appas¬ 
sionati hanno testimoniato la loro pre¬ 
senza e manifestato il loro pieno ap- 


D esidero sottoporvi un interessan¬ 
te programma che sarà estre¬ 
mamente utile per tutti coloro 
che si occupano di linguaggio macchina 
e/o di ASSEMBLER; si tratta di un disas¬ 
sembler in BASIC. Un utilissimo tool per 
ricreare un listato in sorgente, e quindi 
comprensibile, da un programma in for¬ 
mato oggetto. 

CHE COSA È 
UN DISASSEMBLATORE? 

Per capire che cosa vuol dire DISASSEM- 
BLARE, occorre comprendere prima il si¬ 
gnificato della parola ASSEMBLARE. Un 
microprocessore, per eseguire un pro¬ 
gramma. necessita di istruzioni. Queste 
sono poste in memoria (RAM o ROM 
non fa differenza, a questo riguardo) 
come una successione di cCODlCI», che 
sono poi dei particolari valori numerici, 
che, se ben congegnati, permettono 
l’esecuzione del programma stesso. 
Questi «CODICI», variabili da un micro- 
processore ad un altro, potrebbero es¬ 
sere immessi in memoria direttamente 
da parte del programmatore. Natural¬ 
mente, ciò comporterebbe la perfetta 
conoscenza del linguaggio macchina 
del microprocessore impiegato e cioè la 
capacità di calcolare manualmente tut¬ 
te le possibili combinazioni che deter¬ 
minano il «codice» finale in linguaggio 
macchina. È un sistema tediosissimo, 
sconsigliabile a chi non ha avuto una 
condanna all’ergastolo, e. oggi, per for¬ 
tuna. non più usato. Notare, comun¬ 
que, che agli albori dell’informatica 
questo era l’unico mezzo disponibile. 
Un netto miglioramento è stato intro¬ 
dotto con l’uso degli ASSEMBLATORI. Un 
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poggio all'iniziativa inviando lettere, no¬ 
tizie, programmi, consigli. 

Tirando le somme, un successo di cui 
— meritatamente! — si poteva andar 
fieri. 

Maggiore il numero dei lettori, maggio¬ 
re l'impegno con cui, puntualmente, 
occorre consegnare il materiale dattilo- 
scritto alla Redazione: mensilmente, an¬ 
che se a qualcuno potrà sembrare esa¬ 
gerato, è un onere non indifferente. Ho 
iniziato la mia collaborazione che anco¬ 
ra non ero maggiorenne: se il Liceo di 
allora poteva permettere tempo libero 
a sufficienza, l'Università di adesso nep¬ 
pure lo concepisce. 

Per questo motivo l'abbandono della 
rubrica è risultato essere, senza dram¬ 
mi, indispensabile. 

Cedo la mano all'amico e già collabora- 

DISASSEMBLER 

assemblatore permette l’utilizzo di un 
comodo sistema MNEMONICO (Linguag¬ 
gio simbolico, anche se molti discetta¬ 
no se l’assembler sia o non sia un lin¬ 
guaggio). Un assemblatore permette al 
programmatore l’uso di un linguaggio a 
sé congeniale, provvedendo, nel con¬ 
tempo. alla pedante trasformazione del 
linguaggio Mnemonico (Simbolico) usa¬ 
to nelle necessarie istruzioni (codici) in 
linguaggio macchina. Per esempio un’i¬ 
struzione in codice macchina esadeci-, 
male del nostro microprocessore:^ 
>0460, che ha lo stesso significato del* 
GOTO del Basic, è espressa nell’assem- 
bler della Texas Instr. (Codice Mnemoni¬ 
co) con una «B» (ove «B» significa 
«BRANCH»). Altro esempio: >CpOO (la 
LET del Basic) diventa «MOV». È ovvio 
che questo è un sistema molto più age¬ 
vole e più facile da ricordare della me¬ 
morizzazione di tutta quella sequela di 
numeri che costituiscono un program¬ 
ma in linguaggio macchina. Quindi, nel 
nostro esempio, il programmatore scrì¬ 
verà B e il microprocessore intenderà 
>0460. Chiaro? 

Tutto l’insieme di istruzioni Mnemoni¬ 
che (Simboliche) viene in gergo chiama¬ 
to «SORGENTE». Le istruzioni in codice 
(linguaggio macchina) che vengono ge¬ 
nerate partendo dalla «SORGENTE», per 
mezzo dell’assemblatore, vengono 
chiamate «OGGETTO». L’assemblatore 
provvede quindi a trasformare una 
«SORGENTE» in un «OGGETTO». 

Il microprocessore può ESEGUIRE (il RUN 
del Basic) solo un programma «OGGET¬ 
TO», ma non la sua «SORGENTE». Ora, è 
possibile che si possieda l’Oggetto di un 
programma assembler, ma non la sua 


tore Paolo Bagnaresi (Dott.), che tutti 
hanno avuto modo di conoscere ed ap¬ 
prezzare in qualità di vincitore de! con¬ 
corso di aprile, e sulla cui validità non 
credo sia necessario aggiungere altro. 
Chi vorrà, potrà comunque continuare 
a seguirmi sulle pagine di m&p, attra¬ 
verso un nuovo spazio dedicato al po¬ 
tente sistema MSX: una comparsa per 
ora solo bimestrale, che ha reso possibi¬ 
le un compromesso tra studio e...Rudel- 
la! 

Dell'MSX mi occupo ormai da quasi sei 
mesi, ed ho avuto modo di conoscerlo 
approfonditamente grazie all'esperien¬ 
za di lavoro maturata in una casa di 
Software. Per molti aspetti l’ho trovato 
parente stretto de! TI99, del quale pos¬ 
siede lo stesso microprocessore video... 
Anche se ormai parecchio in ritardo, au¬ 
guro buon anno a tutti. 


Sorgente. Per capire un po’ di più quel 
programma occorrerebbe invece pro¬ 
prio la sua Sorgente. A questo provvede 
il DISASSEMBLATORE che m&p vi offre 
questo mese. 

Supponiamo, per esempio, di ricevere 
da un amico un bellissimo quanto velo¬ 
cissimo programma in linguaggio mac¬ 
china, bello da vedersi, bello da usarsi, 
ma. per i più. totalmente incomprensi¬ 
bile. 

Bene, basterà far girare questo pro¬ 
gramma per vedere, non molto veloce¬ 
mente. in verità, disassemblato il pro¬ 
gramma misterioso. Non molto veloce¬ 
mente. dicevo, poiché la velocità (in BA¬ 
SIC) non è certo il cavallo di battaglia 
del buon vecchio Tl 99/4A. In compen¬ 
so, sarà possibile utilizzare il DISASSEM- 
BLER in BASIC con MINI-MEMORY, in BA¬ 
SIC con modulo EDITOR/ASSEMBLER e in 
EXT-BASIC. 

Infatti il nocciolo del programma sta in 
una (famigerata) CALL PEEK (LOCX, MX. 
NX) in riga 4860. 

Purtroppo le istruzioni PEEK & POKE so¬ 
no assenti nel Tl-BASIC e solo parzial¬ 
mente supplite da istruzioni analoghe 
in MINI-MEMORY o in BASIC ESTESO. 

MEMORIA E DISASSEMBLER 

Senza espansione di memoria a 48 K. il 
DISASSEMBLER vi sarà utile solo per di¬ 
sassemblare il contenuto delle ROM da 
> 0000 a > 1FFF (ROM della console), 
e delle ROM della MINI-MEMORY e del- 
l’EXTENDED BASIC, da >6000 a >7FFF 
(il Modulo EDITOR/ASSEMBLER non ha 
ROM. ma solo CROM). Non è molto, ma 
comunque interessante e didattico per 
l’apprendimento di ciò che é contenuto 
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nei recessi della menr>oria della nostra 
macchina. 

Se invece possedete anche l’espansione 
di memoria, potrete usufruire in toto 
delle potenzialità del disassemblatore 


con il Modulo MINl-MEMORY e con il 
Modulo EDITOR/ASSEMBLER. mentre 
avrete qualche limitazione con il modu¬ 
lo EXTENDED BASIC. Infatti l'EXTENDED 
BASIC, con la espansione di memoria in¬ 


serita. carica sia i programmi BASIC, sia i 
programmi in linguaggio macchina, in 
memoria CPU (cioè nell'espansione): se 
il programma in linguaggio macchina 
ha una fine di caricamento in alta me- 


100 REM 

110 REM * DISASSEMBLATORE » 
120 REM 

130 REM * bv M.KROLL » 
140 REM * da 99’ maqazine * 
ISO REM * marzo 1983 ♦ 

160 REM *-« 

170 REM * adattamento per » 
180 REM * EX-baslc,mlnlmem * 
190 REM * e gestione Tiles » 
200 REM * SLi dischi a cura t 
210 REM * di R.FABIANI » 
220 REM * novembre 1984 * 

230 REM «*«««»**»*«««««»««««: 
240 CALL CLEAR 
230 CALL SCREEN(6) 

260 FOR I»! TO 14 
270 CALL COLORII,16.6) 

280 NEXT I 
290 DIM S<15) 

300 60SUB 3560 

310 PER*»”*»********»***»*** 

320 CALL CLEAR 

330 PRINT PER*:" DISASS 

EMBLATORE":PER» 

340 PRINT ::::::::: 
350 IF PRT»<:>"S" THEN 380 
360 CLOSE «1 
370 PRT*="" 

380 IF FIL*="S" THEN 700 
390 INPUT "uscita su stampan 
te?<S/N) ":PRT* 

400 IF PRT*<>"S" THEN 480 
410 F=1 

420 IF DEVICE*<>"“ THEN 450 
430 PRINT ! I PER*:"stampante 
settata ai": : 

440 INPUT "":DEVICE* 

430 OPEN ttl:DEVICE* 

460 CALL CLEAR 
470 GOTO 560 
480 F=0 

490 PRINT : i : 

500 INF’UT "crea -file su disc 
Q? <S/N) "tFIL* 

510 IF FIL*<>“S" THEN 560 
520 F=1 
530 PRINT 

540 INPUT "scegli tDSKl(2,3) 
.N0MEFILE3 

":DIS* 

550 OPEN ttl:DIS* 

560 CALL CLEAR 
570 PRINT : :"PREMI 1-disass 
embla OPCODE": i"PREMI 2-dis 
assembla DATA": :"PREMI 3-di 
sassembla TEXT": :"PREMI 4-e 
dita File": :"PREMI 5-Fine" 
580 CALL KEY<0.K,ST) 

590 IF ST-0 THEN 580 
600 IF (K<49)+<K>33)=-1 THEN 
380 

610 CALL CLEAR 


620 IF K=52 THEN 4880 

630 IF K=53 THEN 5240 

640 60SUB 780 

650 IF K=49 THEN lOlO 

660 IF <K=50>+(F=1>=-2 THEN 

4060 

670 IF <K=5O)+(F=0)=-2 THEN 
4430 

680 IF <K=51)-KF=l)=-2 THEN 
4260 

690 IF <K=51)+(F=0)=-2 THEN 
4630 ELSE 4880 
700 PRINT : : 

710 PRINT PER*: :"Vuoi chiud 
ere il FILE ": :DIS*: :"<S/N 
) ": 

720 INPUT CHI* 

730 IF CHI*<>"S“ THEN 570 
740 CLOSE #1 
750 F=0 
760 FILt="" 

770 GOTO 320 

780 REM INPUT INDIRIZZI D 
A DISASSEMBLARE 
790 CALL CLEAR 
800 INPUT "disassemblare da 
7 (indirizzo hex di 

4 cifre) ":A* 

810 PRINT 

820 IF P0S("13579BDF".SEG*(A 
*.LEN(A*),1).1)=0 THEN 840 
830 A*=SEG*<A*, l.LEN<A*)-l)S, 
SEG* <"02468ACE".POS("13579BD 
F",SEG*(A*,LEN<A*),l).l).l) 
840 IF LEN(A*)=4 THEN 870 
850 PRINT 'input deve 

essere di 4 cifre in esad 
ecimale": : 

860 GOTO 800 

870 INPUT "fino a ? 

(indirizzo hex di 
4 cifre) ":B* 

880 IF P0S("13579BDF".SEG*(B 
*.LEN(B*).1),1)=0 THEN 900 
890 B*=SEB*(B*,1,LEN(B*)-1)& 
SEG*("02468ACE".POS("13579BD 
F".SE6*(B*,LEN(B*),1),1),1) 
900 IF LEN(B*)=4 THEN 930 
910 PRINT : :"l’input deve e 

ssere di 4 cifre in esade 
cimale": : 

920 GOTO 870 
930 TEMP*=A* 

940 GOSUB 33 K' 

950 A=DEC 
960 TEMP*--B* 

970 GOSUB 3310 
980 B=DEC 
990 CALL CLEAR 
lOOO RETURN 

lOlO REM VALORI PEEK S. CON 
VERSIONE 

1020 FOR LOC=A TQ B STEP 2 
1030 L=0 


1040 Vl=LOC 
1050 GOSUB 3930 
1060 LOC*=HEX* 

1070 GOSUB 4820 
1080 M=MX 
1090 N=NX 
1100 V=M*256+N 
Ilio V1=V 
1120 GOSUB 3930 
1130 V*=HEX* 

1140 VA=V 
1150 GOSUB 3480 
1160 REM DETERMINA FORMATO 
ISTRUZIONE 

1170 IF V<512 THEN 4040 
1180 IF V<832 THEN 2830 
1190 IF V<1024 THEN 2770 
1200 IF V<2048 THEN 2380 
1210 IF V<4096 THEN 2250 
1220 IF V<8192 THEN 1740 
1230 IF V<11264 THEN 1980 
1240 IF V<12288 THEN 3140 
1250 IF V<14336 THEN 2110 
1260 IF V<16384 THEN 3140 EL 
SE 1570 

1270 REM STAMPO OPCODE MNE 
MONICO 

1280 GAP=»POS(OPER*, " ".1) 
1290 IF GAP<6 THEN 1320 
1300 E*=OPER* 

1310 GOTO 1330 

1320 E*=SEG*(OPER*. l.GAP)S<SE 
G*(" 1,5-GAP)«<SEG*(0P 

ER*,GAP+1,LEN(0PER*)) 

1330 IF F»0 THEN 1360 
1340 PRINT #F:LOC*;" ";V*| 

" ; E* 

1350 GOTO 1370 

1360 PRINT «FiLOC*;" ";V*t" 

";E* 

1370 IF L=3 THEN 1400 

1380 IF L»2 THEN 1500 

1390 IF LOl THEN 1540 

1400 IF F=0 THEN 1430 

1410 PRINT #F:L0*(1);" ";V 

V*(l) 

1420 GOTO 1440 

1430 PRINT UFiLO*!!);" "jVV* 
( 1 ) 

1440 IF L=1 THEN 1540 

1450 IF F=0 THEN 1480 

1460 PRINT «F:L0*(3);" ";V 

V*(3)!" "jOPE* 

1470 GOTO 1540 

1480 PRINT #F:L0*(3>:" ";VV* 
(3);" ";OPE* 

1490 GOTO 1540 

1500 IF F=0 THEN 1530 

1510 PRINT «F:L0*(1)5“ ":V 

V*(l)I LO*(2);" "iVV*(2) 

1520 GOTO 1540 

1530 PRINT «F:L0*(1)!" ";VV* 

(1):L0*(2);" ";VV*(2> 

1540 nEXT LOC 


no 
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1550 

60SUB 5180 

2140 

R*=SEGS(BIN*,7,4) 

2710 

N2=NX 

1560 

GOTO 320 

2150 

GOSUB 3420 

2720 

V1=256*M2+N2 

1570 

REM FORMATO l 

2160 

C*=STR*<R) 

2730 

GOSUB 3930 

15B0 

RESTORE 1720 

2170 

R*=SEG*(BIN*.13.4) 

2740 

VV*<3)=HEX* 

1590 

GOSUB 3890 

2180 

T*=SEG*<BIN*.11.2) 

2750 

OPE*=”DATA >"8cHEX* 

1600 

T«<>SEG«(BIN*, 11,2) 

2190 

GOSUB 3420 

2760 

RETURN 

1610 

R*°SEG«(BIN*,13,4) 

2200 

GOSUB 3630 

2770 

REM FORMATO VII 

1620 

GOSUB 3420 

2210 

S*=R* 

2780 

RESTORE 2820 

1630 

GOSUB 3630 

2220 

QPER«“OP*«< " ” S<S*S< “ , " S<C* 

2790 

GOSUB 3890 

1640 

S«"R« 

2230 

GOTO 1280 

2800 

OPER*=OP* 

1650 

T«»SEG*(BIN«,5,2) 

2240 

DATA 13312,STCR,12288,L 

2810 

GOTO 1280 

1660 

RS=SEG*<BIN*,7,4) 

DCR 


2820 

DATA 992.LREX.969,SK0F, 

1670 

GOSUB 3420 

2250 

REM FORMATO V 

928,SKON,896.RTWP.864,RSET,E 

1680 

GOSUB 3630 

2260 

RESTORE 2370 

32.IDLE 

1690 

D*-R* 

2270 

GOSUB 3890 

2830 

REM FORMATO Vili 

1700 

OPER*=OP*«<" "«cS*S<“. “8cD* 

2280 

R«<:SEG«<BIN«, 13.4) 

2840 

RESTORE 3130 

1710 

GOTO 1280 

2290 

GOSUB 3420 

2850 

GOSUB 3890 

1720 

DATA 61440,SOCB,57344, S 

2300 

S*="R"«(STR*<R) 

2860 

R«>SEG«(BIN«,13,4) 

OC, 5324B, tIOVB, 49152, MOV, 4505 

2310 

C*=SEG*<BIN*.9,4) 

2870 

GOSUB 3420 

6, AB, 

40960,A 

2320 

R*-C* 

2880 

D*»"R“«cSTR*<R) 

1730 

DATA 36864,CB,32768,e,2 

2330 

GOSUB 3420 

2890 

L0C=L0C+2 

8672, 

SB,24576,S,20480,SZCB,1 

2340 

D*=STR»<R) 

2900 

L=L+1 

6384, 

SZC 

2350 

OPER»=OP*«t" "^S»*,". ”8<D* 

2910 

V1=L0C 

1740 

REM FORMATO 1I 

2360 

GOTO 1280 

2920 

GOSUB 3930 

1750 

RESTORE 1960 

2370 

DATA 2816.SRC.2560.SLA, 

2930 

LO*<L)=HEX* 

1760 

GOSUB 3890 

2304. 

SRL,2048,SRA 

2940 

GOSUB 4820 

1770 

DISP»=SEGS <BIN«.9,8) 

2380 

REM FORMATO VI 

2950 

M1=MX 

1780 

DIS=0 

2390 

RESTORE 2500 

2960 

Nl-NX 

1790 

FOR X=>8 TO 15 

2400 

GOSUB 3890 

2970 

V1=256*M1+N1 

1800 

DIS=DIS+VAL < SEG* < DISPS, 

2410 

R*=SEG«(BINS,13.4) 

2980 

GOSUB 3930 

X-7,1>)«S(X) 

2420 

T»=SEG«<BIN*.11.2) 

2990 

VV*<L)=*HEX* 

1810 

NEXT X 

2430 

GOSUB 3420 

3000 

S*=">“«<HEX* 

1820 

IF DIS<128 THEN 1840 

2440 

GOSUB 3630 

3010 

IF OPS=“LIMI" THEN 3070 

1830 

DIS=DIS-256 

2450 

IF R«<"3>6018" THEN 248 

3020 

IF OP*="LWPI" THEN 3070 

1840 

IF SEG*(0P*.2.1)="B” TH 

0 


3030 

IF OP»=”STST" THEN 3090 

EN 1930 

2460 

IF R»>"a>6050" THEN 248 

3040 

IF OP*="STWP" THEN 3090 

1850 

IF DIS=0 THEN 1910 

O 


3050 

OPER*=OP6«<" "&D*S(“. “*cS* 

1860 

DIS=DIS*2-^L0C+2 

2470 

GOSUB 2520 

3060 

GOTO 1280 

1870 

V1»DIS 

2480 

OPERS=OP*«<“ "«<R* 

3070 

OPER*=OP*«<" “8<S« 

1880 

GOSUB 3930 

2490 

GOTO 1280 

3080 

GOTO 1280 

1890 

OPER*=OPS«<" >"?,HEXS 

2500 

DATA 1856.ABS.1792.SETO 

3090 

LOC=LOC-2 

1900 

GOTO 1280 

.1728.SWPB.1664,BL,1600.DECT 

3100 

L=L-1 

1910 

OPER*="NOP'’ 

,1536,DEC.1472.INCT.1408,INC 

3110 

OPER*=OP*S<" “S<D* 

1920 

GOTO 1280 

2510 

DATA 1344.INV,1280.NEG, 

3120 

GOTO 1280 

1930 

REM ISTRUZIONI DI CON 

1216. 

CLR,1152,X,1088,B,1024, 

3130 

DATA 768,LIMI,736,LWPI, 

TROLLO 

BLWP 


704, STST.672,STWP.640.C1.608 

1940 

OPER*=OP*«," "«.STR*(DIS) 

2520 

REM PROGRAMMI UTILITY 

.ORI 

576.ANDI.544.AI.512,LI 

1950 

GOTO 1280 

DI MINI-MEMORY 

3140 

REM FORMATO IX 

1960 

DATA 7936,TB.7680,SBZ.7 

2530 

DATA 6018,GPLLNK.601C,X 

3150 

RESTORE 3300 

424.SBO,7168.JOP,6912,JH, 665 

MLLNK.6020,KSCAN.6024.VSBW.6 

3160 

GOSUB 3890 

6. JL, 

6400,JNO,6144,JOC,5888, 

028.VMBW.602C,VSBR,6030.VMBR 

3170 

R*=SEG»(BIN»,13, 4) 

JNC,5632,JNE.5376.JGT 

2540 

DATA 6034,VMTR.6038,DSR 

3180 

TS=SEG»<BIN*.11.2) 

1970 

DATA 5120.JHE.4864.JEQ, 

LNK.603C,LOADER,6040,NUMASG, 

3190 

GOSUB 3420 

4608 

JLE.4352,JLT.4096, JMP 

6044 

NUMREF,6048,STRASG.604C 

3200 

GOSUB 3630 

1980 

REM FORMATO III 

,STRREF,6050,ERR 

3210 

S*=R* 

1990 

RESTORE 2100 

2550 

RESTORE 2530 

3220 

R»=SEG»<BIN*.7.4) 

2000 

GOSUB 3890 

2560 

READ U*,UTIL4 

3230 

GOSUB 3420 

2010 

T*=SEG*<BIN*,11,2) 

2570 

IF SEG»(R».3.4)<>U* THE 

3240 

IF OP*<>"XOP“ THEN 3270 

2020 

RS=SEG»<BIN*.13.4) 

N 2560 

3250 

D*=STR*(R) 

2030 

GOSUB 3420 

2580 

IF F=0 THEN 2600 

3260 

GOTO 3280 

2040 

GOSUB 3630 

2590 

R*=R»*c" < "«<UTIL»*<” ) " 

3270 

D*="R"&STR*<R) 

2050 

S«=-R« 

2600 

IF US="6018“ THEN 2640 

3280 

OPER^-OPtSc" "8cS*8<", "SeD* 

2060 

R*=SEG»<BIN*.7,4) 

2610 

IF U»="6038" THEN 2640 

3290 

GOTO 1280 

2070 

GOSUB 3420 

2620 

IF U*="601C“ THEN 2640 

3300 

DATA 15360,DIV.14336,MP 

2080 

OPER*=OP*«<" "«.S**,", "S<ST 

2630 

RETURN 

Y,11264.XOP 

R*<R) 

2640 

L=3 

3310 

REM CONVERTE IN DECIM 

2090 

GOTO 1280 

2650 

L0C=L0C+2 

ALE 


2100 

DATA 10240,XOR.9216.CZe 

2660 

V1«L0C 

3320 

Dec=o 

.8192.eoe 

2670 

GOSUB 3930 

3330 

FOR X=3 TO 15 STEP 4 

2110 

REM FORMATO IV 

2680 

L0*(3)=HEX* 

3340 

TEMP2»=SEG*(TEMP*,(X+1) 

2120 

RESTORE 2240 

2690 

GOSUB 4820 

/4. 1) 

2130 

GOSUB 3890 

2700 

M2-MX 

3350 

IF ASC(TEMP2*)>57 THEN 


m&p COMPUTER 51 


111 















Tl99/4fl 


3400 

3360 TN=ASC<TEMP2*>-48 
3370 DEC=DEC+TN»S<X) 

3380 NEXT X 

3390 RETURN 

3400 TN=ASC<TEMP2*)-55 

3410 GOTO 3370 

3420 REM PONE REGISTRO 4 

3430 R=0 

3440 POR X=12 TO 15 

3450 R=R+VAL<SEG*(R*.X-11. 1) 

)«S<X) 

3460 NEXT X 
3470 RETURN 

3480 REM CONVERTE A BINARI 
0 

3490 BIN*="" 

3500 POR X=0 TO 15 
3510 BIN=INT(VA/S<X)) 

3520 VA=VA-<BIN*S<X)) 

3530 BIN»=BIN**.STR*(BIN)'• 
3540 NEXT X 
3550 RETURN 

3560 REM CREA DIVISORE BIN 
ARIO 

3570 DATA 32768.16384,8192.4 
096,2048,1024,512.256.128.64 
.32,16.8,4.2.1 


3580 

RESTORE 3570 


3590 

POR X=0 TO 15 


3600 

READ S(X) 


3610 

NEXT X 


3620 

RETURN 


3630 

REM IDENTIFICA 

CAMPO- 

T 

3640 

IP T*<>"00" THEN 

3670 

3650 

R*«"R"8<STR*(R> 


3660 

RETURN 


3670 

IP T*<>"01" THEN 

3700 

3680 

R*="*R"8<STR*(R) 


3690 

RETURN 


3700 

IP T*<>"11" THEN 

3730 

3710 

R*=“»R"8<STR*(R)«< 

M ^ M 

3720 

RETURN 


3730 

L0C=L0C+2 


3740 

L-L+1 


3750 

GOSUB 4820 


3760 

M1=MX 


3770 

N1«NX 


3780 

VI«LOC 


3790 

GOSUB 3930 


3800 

LO*(L)»HEX* 


3810 

V1=M1*256+N1 


3820 

GOSUB 3930 


3830 

VV*<L)=HEX* 


3840 

IP ROO THEN 3870 

3850 

R*="3>"S<HEX* 


3860 

RETURN 


3870 

R*="a>"8(HEX*«<" <R 

"«<STR*< 

R)Sc" 

> " 


3880 

RETURN 



3890 REM CREA SIMBOLO MNEM 
ONICO DELL'OPCODE 
3900 READ OPV.OP* 

3910 IP V<OPV THEN 3900 
3920 RETURN 

3930 REM CONVERTE IN ESADE 

CIMALE 

3940 HEX*="" 

3950 POR X=3 TO 15 STEP 4 
3960 VH=INT<V1/S<X)> 

3970 V1»V1-VH*S(X) 


3980 IP VH>9 THEN 4020 
3990 HEX*=HEX»S<STR*<VH) 

4000 NEXT X 
4010 RETURN 

4020 HEX«=HEX*S<CHR*<VH+55) 
4030 BOTO 4000 
4040 OPER*=”CODICE OGGETTO N 
ON VALIDO" 

4050 GOTO 1280 

4060 REM PRINT <DATA> SU D 
EVICE ESTERNO 

4070 POR LOOP=A TO B STEP 18 
4080 V1=L00P 
4090 GOSUB 3930 
4100 L*=HEX* 

4110 PRINT #P:L*j" 

“l"DATA 

4120 POR LOC=LOOP TO LOOP+16 
STEP 2 

4130 GOSUB 4820 

4140 M=MX 

4150 N=NX 

4160 V1=256*M+N 

4170 GOSUB 3930 

4180 IP L0C=L00P+16 THEN 421 

O 

4190 IP L0C>=B-1 THEN 4240 
4200 PRINT 4Ps“>";HEX*; 

4210 NEXT LOC 

4220 PRINT #P:“>";HEXS 

4230 NEXT LOOP 

4240 PRINT «Fi •■>":HEX» 

4250 GOTO 5180 

4260 REM PRINT <TEXT> SU D 
EVICE ESTERNO 

4270 POR LOOP=A TO B STEP 54 
4280 VI«LOOP 
4290 GOSUB 3930 
4300 PRINT UFiHEX*;" 

";"TEXT 

4310 POR LOC=LOOP TO LOOP+53 
4320 GOSUB 4820 
4330 M«MX 

4340 IP <M<127)+<M>31)=-2 TH 
EN 4360 
4350 M=63 

4360 PRINT «F:CHR*(M>; 

4370 IP LOC=B THEN 4410 
4380 NEXT LOC 
4390 PRINT #F;"”' 

4400 NEXT LOOP 
4410 PRINT 4Fs"'" 

4420 BOTO 5180 

4430 REM VISUALIZZA <DATA 
> SU SCHERMO 

4440 POR LOOP=A TO B STEP 6 
4450 VI«LOOP 
4460 GOSUB 3930 
4470 LS=HEX* 

4480 PRINT «F:L*;" DATA 
4490 POR LOC=LOOP TO LOOP+4 
STEP 2 

4500 GOSUB 4820 

4510 M=MX 

4520 N=NX 

4530 V1=256»M+N 

4540 GOSUB 3930 

4550 IP L0C=L00P+4 THEN 4580 

4560 IP LOC>=B-l THEN 4610 

4570 PRINT #F: ••>";HEX*; 

4580 NEXT LOC 

4590 PRINT #F: HEX» 


4600 NEXT LOOP 

4610 PRINT #F:">”;HEX* 

4620 GOTO 5180 
4630 REM VISUALIZZA <TEXT> 
SU SCHERMO 

4640 POR LOOP=A TO B STEP 14 
4650 VI«LOOP 
4660 GOSUB 3930 
4670 PRINT 4F:HEX*j“ TEXT 

4680 POR LOC=LOOP TO LOOP+13 
4690 GOSUB 4820 
4700 M=MX 

4710 IP <M<127)+(M>31)«-2 TH 
EN 4730 
4720 M=63 

4730 PRINT #PiCHR*<M); 

4740 IP LQC=B THEN 4780 
4750 NEXT LOC 

4760 PRINT «Fi. 

4770 NEXT LOOP 
4780 PRINT #P:"'" 

4790 GOSUB 5180 

4800 GOTO 320 

4810 REM PEEK ROUTINE 

4820 IP L0C<32768 THEN 4850 

4830 LOCX=LOC-65536 

4840 GOTO 4860 

4850 LOCX«LOC 

4860 CALL PEEK(LOCX.MX,NX) 

4870 RETURN 

4880 REM INPUT FILE 

4890 PRINT PER*: :"FiIe da d 

iSCOI DSK<123).NOME": ; 

4900 INPUT "":DIS* 

4910 CALL CLEAR 
4920 OPEN «3:DIS*.INPUT 
4930 IP EOF(3)THEN 5130 
4940 CALL KEY(0,KY.ST> 

4950 IP ST-0 THEN 5000 
4960 POR KY=1 TO 300 
4970 NEXT KY 
4980 CALL KEY<0,KY.ST) 

4990 IP ST=0 THEN 4980 
5000 IP ZX»="“ THEN 5040 
5010 EDI*«ZX* 

5020 ZX*="" 

5030 GOTO 5060 

INPUT «3:EDI». 

IP EOF<3)THEN 5150 
INPUT #3:ZX*. 


5040 

5050 

5060 

5070 


•,5)=5 THE 


“ScZX* 


IP POSiZX», ' 

N 5110 

5080 PRINT EDI««<' 

5090 ZX*="" 

5100 GOTO 4930 
5110 PRINT EDI* 

5120 GOTO 4930 
5130 PRINT ZX* 

5140 GOTO 5160 
5150 PRINT EDI* 

5160 CLOSE «3 
5170 ZX*="" 

5180 PRINT : :PER*:"***» 

E DISASSEMBLATO **»*" 

5190 PRINT PER*:TAB(9);"Prem 
i un tasto":PER* 

5200 CALL SOUND(150.1397.0) 
5210 CALL KEY(O.KY.ST) 

5220 IP ST=0 THEN 5210 
5230 GOTO 320 
5240 END 


FIN 
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mona sopra > DSOD. decimale -10803, 
(inizio programma DISASSEMBLER in alta 
memoria), esso distruggerà il nostro 
programma BASIC preesistente, cioè 
annienterà DISASSEMBLER. Con il Modu¬ 
lo MINI-MEMORY o con il Modulo EDI- 
TOR/ASSEMBLER questo rischio non esi¬ 
ste: il programma BASIC sta sempre in 
VDP RAM, e non interferirà mai con il 
programma in linguaggio macchina 
(necessarie, minimo, 16 ore di tempo!). 
Se caricate un file oggetto che non 
contiene AORG (Absolute ORiCin = ini¬ 
zio di caricamento), esso si piazzerà: da 
>24F4 in sù con l’EXTENDED BASIC, da 
>AOCXD in sù con il modulo MINI-ME- 
MORY o EDITOR/ASSEMBLER. Gli even¬ 
tuali files oggetto successivi, sempre 
senza AORG. saranno caricati di seguito 
al primo. 

Infine, nella MINI-MEMORY priva di 
espansione di memoria, i programmi in 
linguaggio macchina, caricati da casset¬ 
ta, saranno situati nella piccola RAM del¬ 
la Mini Memory stessa e cioè, general¬ 


mente. da > 7000 in sù. In taluni casi, 
se sono stati rilocati, possono iniziare 
anche da >7118 in sù. 

COME USARE IL DISASSEMBLER 

Dovrete caricare per primo il DISASSEM- 
BLER e poi il programma oggetto, da di¬ 
sco mediante una CALE LOAD («DSKn. 
(NOMEFILE)»), da cassetta con un pro¬ 
gramma apposito che vi forniremo in¬ 
sieme al programma XASSEMBLER, un 
assemblatore in BASIC, di prossima pub¬ 
blicazione. 

Date il RUN e seguite pedissequamente 
le istruzioni che appariranno sul moni¬ 
tor. 

ENTRIAMO NEL DISASSEMBLER 

È obbligatorio premettere che il DISAS- 
SEMBLER non è stato programmato dal 
sottoscritto (come spiegato nelle prime 
REM) ma solo modificato e ottimizzato 
per un uso più ampliato riguardo ai pro¬ 
positi dell'autore. 

Dopo aver eseguito tutto quanto spie¬ 


gato fino ad ora, diamo il RUN. Lo 
schermo cambiarà colore, titolo, prima 
richiesta: «USOTA SU STAMPANTE? (S/ 
N)». Rispondete S o N. Se S(i) vi verrà 
chiesto come è stata settata. 

Digitate i valori che di solito usate per la 
vostra «OPEN». 

Comparirà poi la richiesta «CREA FILE SU 
DISCO? (S/N)». Se volete registrare il di¬ 
sassemblato direttamente su disco ri¬ 
spondete S(i). 

In questo caso dovrete digitare il tipo di 
unità dischi in questione (n = 1.2 o 3) e 
il norr»e scelto per il file. (Es- «DSK (n.). 
Nomefile») 

Lo schernno si pulisce ed appare II MENU 
principale: 

PREMI 1-disassembla OPCODE 
PREMI 2-disassembla DATA 
PREMI 3-disassembla TEXT 
PREMI 4-edita file 
PREMI 5-fine 

Apparirà ora la richiesta di indirizzo di 
partenza. 

Digitatela e apparirà la richiesta dell’in- 


ue esempi de! disassemblato otteni¬ 
bile con il DISASSEMBLER sono a fianco 
di questo articolo: 

— Il primo va da locazione > oooo a 
locaz. > 007A: questa parte di memo¬ 
ria contiene la routine di inizializzazio- 
ne che si ha con il RESET (FCTN QUIT). 

— Il secondo, molto breve, da locaz. 
> 0A6A a locaz. > 0A82, contiene la 
speciale CALL KEY, effettuata dall'inter¬ 
prete Basic, preposta al controllo del ta¬ 
sto FCTN QUIT. Durante il RUN di un 


ALCUNE APPLICAZIONI 

programma Basic questa routine viene 
eseguita in continuazione: se premete 
FCTN QUIT avrete, come noto, l'imme¬ 
diato RESET de! sistema operativo che si 
esplica mediante la BL WP o > 0000 che 
si trova alla locaz. > 0A80. 

Questi due esempi si riferiscono a routi- 
nes presenti nella memoria ROM della 
consolle, quindi essi sono ottenibili indi¬ 
pendentemente da! tipo di modulo im¬ 
piegato per lanciare il DISASSEMBLER. 

Si consiglia di effettuare il disassembla¬ 
to di queste due zone di memoria, e di 


confrontare il disassemblato ottenuto 
da Voi con i due listati da noi forniti. Se 
essi coincidono, ci sono 90% di proba¬ 
bilità che non abbiate commesso errori 
di battitura, altrimenti... riguardatevi il 
listato de! programma con più attenzio¬ 
ne: avete commesso qualche errore. 
Cercate di impratichirvi con questo Dl- 
SASSEMBLER. Basta possedere TEXTEN- 
DED BASIC, la consolle, un registratore 
a cassette e naturalmente... aver battu¬ 
to con estrema cura il DISASSEMBLER. 

Riccardo Fabiani 
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R6.9>0402(R13> 

OOOE 

0460 




0038 

lEOO 

S0Z 

0 

0062 

0402 




0010 

0202 

STWF' 

R2 


003A 

02E0 

LWPl 

>2eoA 

0064 

D06O 

nov 0 

9>83£D.9>0402<R13t 

0012 

0008 

CODICE OOOCTTO 

NON VALIDO 

003C 

280A 



0066 

83E0 




0014 

leoo 

S0Z 

0 


003E 

0380 


RTWR 

0068 

0402 




0016 

0460 

B 

9>0O7A 


0040 

280A 

XQR 

RIO.O 
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OOIE 
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9>e300.R14 
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0002 




0020 
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0A78 
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dirizzo di fine disassemblando. Fornite il 
valore richiesto. 

Ora abbiate pazienza, c’è chi lavora per 
voi! 

Passato un po’ di tempo (sighl), il disas¬ 
semblato. su schermo, su carta, o su di¬ 
sco. sarà completato. 

Ritornerete cosi al MENÙ principale. 

' ALCUNE CONSIDERAZIONI 

Il disassemblatore può disassemblare in¬ 
differentemente ogni locazione di me¬ 
moria in tre maniere: OPCOTE. DATA. 
TEXT. Con OPCODE il programma parti¬ 
rà dall’assunto che i contenuti delle lo¬ 
cazioni in esame siano effettivi CODici 
operativi, cioè istruzioni in L.M. Tenterà 
quindi di darvi il codice mnemonico 
corrispondente. Tuttavia, può accadere 
che le locazioni in questione contenga¬ 
no o dei DATA o delle stringhe (TEXT). 
Imperterrito, il nostro disassemblatore 
interpreterà sia i DATA che le stringhe 
come istruzioni in L.M.: si avrà quindi un 
disassemblato incoerente, nel quale 
sembrerà che il programmatore era. al 
momento della stesura del programma, 
ubriaco o peggio. 

Quando ciò accade, sappiate che certa¬ 
mente quella particolare zona di me¬ 
moria conteneva o TEXT o DATA. Prova¬ 
te quindi a disassemblare con l’opzione 
TEXT. 

Se ancora non otterrete risultati plausi¬ 
bili resta solo un’ultima soluzione: l’op¬ 
zione DATA. Infatti questa è un’opzione 
che fornisce sempre valori coerenti. 
Lasciare sempre questa opzione per ul¬ 
tima. perchè non vi sarà poi di grande 
aiuto tutta quella sfilza di valori e^eci- 
mali: occorre trovare quale zona del 


programma faceva uso di quei DATA, 
prima di aver vantaggio dal disassem¬ 
blato ottenuto. Da rx)tare. irroltre. che 
nel disassemblato ottenuto per OPCO¬ 
DE. i DATA sono sempre presenti: li tro¬ 
vate subito alla destra del valore esade- 
cimale della locazione. 

Disassemblare con l’opzione DATA è 
utile solo per avere un listato più com¬ 
patto. 

Un’ultima osservazione: sporadicamen¬ 
te. sempre con l’opzione OPCODE. può 
capitare di trovare, per una sola loca¬ 
zione di memoria o comunque per po¬ 
che locazioni (in genere fino a 3-5 loca¬ 
zioni). istruzioni o strane o una segnala¬ 
zione di «CODICE OGGETTO NON VALI¬ 
DO». Fate caso: se questi valori seguo¬ 
no delle BL <Branch and Link>. le GO- 
SUB del BASIC, o delle BLWP <Branch 
ar.d Load Workspace Pointer >, le CALL 
del BASIC, allora quasi certamente essi 
sono dei DATA che devono essere pas¬ 
sati alle sobroutine chiamate (tipico è la 
BLWP ®®DSRLNK. DATA 8: il disassem¬ 
blatore darà «CODICE OGGETTO NON 
VALIDO», per il DATA 8. perchè 8 non è 
un codice possibile per nessuna istruzio¬ 
ne in L.M. del TMS 9900). 

Se esse invece seguono dei JMP 
<jump> o dei B <Branch> (il GOTO 
del BASIC), esse sono invece semplici 
DATA, messi lì da un programmatore 
svogliato, che non ha avuto pazienza di 
riunirli tutti insieme in un unica tavola 
dei DATA. 

Chi non ha ancora sufficienti conoscen¬ 
ze di assembler, si limiti a provare pri¬ 
ma con OPCODE e poi con TEXT: riusci¬ 
rà. dopo un’attenta analisi di ciò che ot¬ 
tiene. a capire ugualmente qualcosa 


. perlomeno dove sono situate lej 

stringhe (TEXT)! 

All’inizio dovrete fare mente locale a i 
ciò che desiderate ottenere dal pro-l 
gramma. ma con un po’ dì esperienza ■ 
ne sarete soddisfatti. 

ANAUSI DEL USTATO 

100-770 settaggio colori e MENÙ 
780-1000 input indirizzi da disassemblare 
1010-1150 valori PEEK e conversione 
1160-1260 determina formato istruzione 
1270-1560 stampa OPCODE mnemonico 
1570-1730 formato I 
1740-1920 formato II 
1930-1970 istruzioni di controllo 
1980-2100 formato III 
2110-2240 formato IV 
2250-2370 formato V 
2380-2510 formato VI 
2520-2760 programmi utility MINI-MEMORY 
2770-2820 formato VII 
2830-3130 formato Vili 
3140-3300 formato IX 
3310-34lò converte in decimale 
3420-3470 pone registro (numero) 
3480-3550 converte in binario 
3560-3620 crea divisore binario 
3630-3880 crea campo T 
3890-3920 crea simbolo mnemonico del- 
l’OPCODE 

3930-4050 converte in esadecimale 
4060-4250 visualizza DATA 
4260-4420 visualizza TEXT 
4430-4620 visualizza DATA su monitor > 
4630-4800 visualizza TEXT su monitor 
4810-4870 PEEK routine 
4§80-5170 edita/ILE su monitor 
Cercate di impratichirvi con questo Dl- 
SASSEMBLER. Basta possedere l’EXTEN- 
.DED BASIC, la consolle, un registratore 

a cassette e naturalmente . aver 

battuto con estrema cura il DISASSEM- 
BLER. 

Riccardo Fabiani 


Tl 99/4A 


XASSEMBLE: ASSEMBLER PER EXTENDED BASIC 


C ome promesso dal nostro ottimo 
predecessore. Paolo Ventafridda 
(passato a curare il nuovo compu¬ 
ter della serie MSX). per la parte assem¬ 
bler della rubrica del TI-99/4A iniziamo 
la pubblicazione della prima parte di 
quello che diventerà un assembler com¬ 
pleto per Extended Basic. 

Il programma, una volta ultimato, sarà 
utilizzabile da coloro che possiedono il 
Modulo Extended Basic, registratore a 
cassetta, ed espansione di memoria 48 
K. tipo ESSEMMECI. per intenderci. Tut- 


ttt SPOLIN e' uno SPOstatore di riferiiento LINee di un prograiia EXTENDED BASIC, 
t Dopo la CALL LINKCSPOLIN*) da Extended tutte le linee del prograeia Extended 
t eventualiente presente in leioria vengono fatte puntare, e quindi coincidono, 
t con le istruzioni che erano presenti nella linea di prograiea piu' bassa. 

t 

t SPOLIN crea all’interno di un prograita Ext. basic lo spazio necessario per 
t contenere successi vaiente un prograiia in Linguaggio Nacchina. 

t 

t SPOLIN e' da usarsi per preparare XASSENBLE. In particolare per preparare 
t LINEA25000, il nucleo nel quale verrà' priia inserito CSAVE, e sotto il quale 
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to il sistema è infatti stato studiato te¬ 
nendo in mente che molti hanno l’e¬ 
spansione di memoria del tipo «latera¬ 
le», me non il sistema a dischi. 

Questo ha complicato notevolmente la 
realizzazione di un valido sistema di sal¬ 
vataggio (SAVE) del codice in linguag¬ 
gio macchina (L.M.) che viene generato 
daH'assemblatore. 

L’assemblatore è made in Cermany. 
Credo che l'autore sia Karl Hagenbu- 
chner, di Traun, ma non ci giurerei, vi¬ 
sto che conosco solo poche parole di 
tedesco. 

È merito dell’inesauribile Ventafridda la 
scoperta di questo validissimo program¬ 
ma. L’originale tedesco conteneva una 
serie di GOTO errate, che impedivano 
l’uso corretto di tutte le JUMP (salti con¬ 
dizionati e non) ad un LABEL (etichetta). 
È stata da me aggiunta la routine di SA¬ 
VE e LOAD (chiamata d’ora in poi «OSA¬ 
LO») del codice macchina generato. 

STRUTTURA DI XASSEMBLE 

XASSEMBLE è composto di due tronco¬ 
ni: XASSEMBLER vero e proprio, che è 
un normale programma Ext. Basic, e 
OSALO, che è un programma in L.M.. 
ottenuto da Ext. Basic tramite CALL LO¬ 
AD, e successivamente rilocato all’inter¬ 
no di un programma BASIO apposita¬ 
mente precostituito. 

Molti di voi non sono forse avvezzi a 
questo tipo di struttura. 

È comunque abbastanza usata per de¬ 
gli ottimi motivi: il programma in L.M. 
che è contenuto in un programma BA¬ 
SIC si può salvare su cassetta, oltre che 
su disco, è molto veloce da caricare, 
occupa un decimo dell’area di pro¬ 
gramma BASIC dell’equivalente thè 
venga generato con CALL LOAD. fà ri¬ 
sparmiare spazio sul dischetto e su cas¬ 
setta. è immediatamente disponibile 
dopo il «RUN». Questo mese vi descri¬ 
verò CSALO e i programmi che lo gene¬ 
rano. Il prossimo mese sarà la volta, fi¬ 
nalmente, di XASSEMBLE. 

CSALO 

Questo spezzone permetterà il «SAVE» 
e due tipi diversi di «LOAD», sempre da 
cassetta. È molto facile la trasformazio¬ 
ne della routine per il sistema a dischi, 
per coloro che possiedono l’EDITOR/AS- 
SEMBLER. 

CSALO è la porzione di XASSEMBLE che 
và creata per prima. Successivamente 
sarà aggiunto XASSEMBLE. 

Chi ha il sistema a Dischi può aggiunge¬ 
re XASSEMBLE mediante l’opzione MER¬ 
CE. È. in questo, XASSEMBLE che deve 
essere aggiunto a CSALO e non vicever¬ 
sa. 


t verrà' poi costruito XASSEHBLE, la funziona per qualsiasi prograata Extended 
t Basic. 

ttmmtmmmuuumtmmmtnttmttttttmmttuttmmttmmut 

t RILOC e' il rilocatore di CSAVEXT, prograaaa Extended Basic con CALL LOAD. 
t CSAVEXT ha il suo aabiente naturale a partire da >FD88, per >0230 bytes, aa e* 
t caricato, traaite CALL LOAD, da >24F4 a >2724, per non interferire con il 
i prograaaa Extended Basic che deve essere creato in alta aeaoria. 
t RILOC, se chiaaato con CALL LINKCRILOC*), rilochera' il tutto ciò' che si 
t trova in bassa aeaoria a partire da >24F4 a >2724, e lo sposterà' da >FD88 
t fino a >FFB8, ove deve trovare L1NEA25000 già' trattato con SPOLIN. 
t Variando ciò' che si carica (LI R..) in RO, RI, R2, si può' usare RILOC per 
t ri locare oualsiasi altro prograaaa in linguaggio aacchina. 
ttuttumuttttuttttttttmummmmumumtutttttututtttuttum 
t PAOLO BA6NARESI, San Donato Milanese, 9 Diceabre 1984. Tel. (021-514.202 
ttmmumtttmmttumtttmmmmmmtmtuutttmuttuttumtt 

DEF SPOLIN.RILOC 
AORG >2726 
SPOWK BSS >20 
SPOLIN LNPI SPONK 

nOV 9.>8330,R0 
t 

NOV a>8332,R4 

t 
t 
t 
t 
t 

DEC R4 
NOV R4,Rl 
HOVB IR1+,R2 
NOVB tRl,R3 
INCT RO 
t 
} 

LOOP HOVB R2,tR0+ 

t 

HOVB R3,IR0+ 

IHCT RO 
C R0,R4 
JNE LOOP 
RETURN LNPI >83E0 



SB 

B 

S>837C,a>B37C 
8>0070 

all’Extended Basic. 

RILOC 

LNPI 

SPONK 

-> Carica il aorkspace in uso. 

» 

LI 

R0,>24F4 

-> In RO il priao indirizzo utile della bassa aeaoria, 
dove si trova l’inizio del prograaaa da rilocare. 

t 

LI 

R1,>FD88 

-> In RI il priao indirizzo di destinazione, dove il 
prograaaa sara' rilocato (alta aeaoria). 


LI 

R2,>0230 

-> Sono >0230 bvtes da rilocare (2l256*3ll6=512+48=560) 

TRASF 

HOV 

IR0+,IR1+ 

-> Ri loca (trasferisce) da bassa aeaoria in alta aea. 


DECT 

R2 

-> Vede se ha finito il trasferiaento. 


JNE 

TRASF 

-> Se R2 non e' ancora zero, continua a trasferire. 


JHP 

END 

RETIJRN 

-> Altriaenti ritorna all’Extended Basic. 


-> 32 bytes per il aorkspace. 

-> Carica il aorkspace. 

-> 9>8330 c'e' il puntatore all’inizio della tavola 
delle linee del prograaaa Ext. Basic in uso. 

-> 9>B332 c’e' il puntatore alla fine della tavola 
delle linee di un prograaaa Ext. Basic. La tavola 
occupa 2 words (4 bytes) per ogni linea di prograaaa 
Il priao Mord e' il nuaero di linea, il secondo «ord 
e' l’indirizzo CPU RAH dove si trovano le istruzioni 
contenute in questo nuaero di linea. 

-> Aggiusta in aodo di puntare al’indirizzo-istruzioni. 

-> Fa' una copia in RI. 

-> Ottiene in R2 (HSB) il byte sinistro dell’indirizzo. 

-> Ottiene in R3 (HSB) il byte destro dell’indirizzo. 

-> RO punta ora alla locazione che contiene l’indirizzo 
delle istruzioni della linea piu' alta del prograaaa 
Extended Basic. 

-> Sostituisce il byte sinistro con l’indirizzo-istruz. 
della linea piu' bassa. 

-> Fa' la stessa cosa con il byte destro. 

-> Si posiziona sul prossiao indirizzo-istruzioni. 

-> Vede se e' arrivato alla riga piu' bassa. 

-> Si allaccia aH’interprete 6PL e ritorna 
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SAVE UTILITY PER CASSETTA 
IN TI EITENDED BASIC 
DA USARSI INSIEME A lASSENBLE 
PAULO BASNARESI 
Tel. I02)-5M.202 
8 Diceibre 1984 

tmmuttmmmmttmmtmtummttmtnmtmntmuutuum 

FORMATO DEL PR06RAM Cl€ VERRÀ* GENERATO IN VDP RAM 
VDP 
RAM 
Nord Loc 


Contenuto delle locai. 


1 >1000 --> Identifier MEXT PROGRAM OOOOO o >FFFF) 

2 >1002 —> Quanti Bytes in questo seqeento di proqrae 

3 >1004 --> Inizio di caricawnto di questo segeento 

4 >1006 --> Priao word del prograaaa da salvare. 


-> PROGRAM BUFFER AREA. 


i >Xin --> Ultiao Hord del prograaaa da salvare. 
X+1 >XXn+2 —> Lunghezza DEF/REF table (bytes) 

X+2 >XXXX*4 —> Priaa lettera della DEF piu' bassa. 


—> DEFs efTettive <8 bytes per ciascuna DEF) 

X+N/2 XXXX+N ”> Settiao e ottavo byte dell’ultiaa DEF, la piu' alta. 

ttmmmmtmmmmtmumtmtmtmuttmmutmummmttm 
DEF CSAVE,CLOAD,BLOAD 
VMBM EQU >2024 ! 

VMBR EQU >202C ! -> EIR)ATES per Eitended Basic. 

VSBR EQU >2028 ! 

ERR EQU >2034 ! 


ave a a a a 


INPROG 

ENPROG 


AORG >FD88 
EQU >24F0 
EQU >24F2 
B aCSAVE 
B 8CL0AD 
B 3BL0A0 
BSS >20 
BYTE >06 
BYTE >05 


-> Inizio caricaaento di questo prograaaa! 

-> Salva qui' l’indirizzo di inizio prograaaa. 
-> Salva qui' l’indirizzo di line prograaaa. 

-> BRANCH per l’ingresso a CSAVE. 

-> BRANCH per l’ingresso a CLOAD. 

-> BRANCH per l’ingresso a BLOAO. 

-> 32 bytes per il «orkspace. 

-> Op-code per PAB in VDP RAM per una SAVE. 

-> Op-code per PAB in VDP RAM per una LOAD. 


MYHORK 
SAVE 
LOAD 

CSIPAB DATA >0600,>1000,>0000,>2000,>6003 -> PAB per VDP RAM. 


BLOAD 

t 


CLOAD 

AFCLO 


TEXT ’CSl.’ -> Noae del aezzo da azionare (DEVICE NAME). 

LNPI MYNORK -> BLOAD e' l’ingresso per prograa files senza DEF, 

tipo 5 RUN PROGRAM FILES dell’asseabler. 

> IdentiFier di BLOAD e' R12 diverso da zero. 


SETO R12 
CLR R14 
JMP AFCLO 
LNPI MYHORK 
CLR R12 

MOVB aLOAD,aCSlPAB 
JMP NOSAV 


■> CLOAD e' linqresso per caricare prograaai che 
contengono anche la DEF table, tipo XASSEMBLE. 

-> Sistesa la copia del PAB in CPU RAM per una LOAD. 


Questo perché CSALO «DEVE» stare 
più possibile vicino a > FFFF: la routine] 
«DEVE» iniziare a >FFD8. pena il nonj 
funzionamento del tutto. 

Una volta terminato, CSALO permetterà] 
il salvataggio su cassetta dei programmi] 
in L.M. generati da XASSEMBLE. unita-j 
mente alla DEF TABLE creata, il LOADj 
successivo degli stessi, aggiungendo al¬ 
la DEF TABLE presente le nuove DEF, e] 
terza opzione, il LOAD di program file] 


ICO ! Micro e Personal Compu 
ter 

110 ! SPOl.IN s sposta 

riferimento LlNee di 
un programma Ext.Basic 
con Memory Expansion 


120 


E ' da usare per 
costruire XASSEMBLE. 


130 ' San Donato Milanese 
Dicembre 1984, 

Paolo Bagnaresi. 

140 CALI- LOAD <10054,2, 224,39 
,38,192,32,131,48,193,32,131 
,50,6,4,192,68,208,177,208,2 
09,5,192) 

150 CALL LOAD(10076,220,2,22 
0,3,5,192,129,0,22,251,2,224 
,131,224,120,32,131,124,131, 
124,4,96) 

160 CALL LOAD<10098,0,112,2, 
224,39,38,2.0,36,244,2,1,253 
,136,2,2,2,48,204,112,6,66) 


170 CAl.L LOAD < 10120,22,253, 1 
6,237) 

180 CALL LOAD<16368,82,73,76 
,79,67,32,39,116) 

190 CALL LOAD<16376,83,80,79 
,76,73,78,39,70) 

200 CALL LOAD <8194,39,140,63 
.216) 

210 CALL CLEAR 

220 POR L0C=1C>054 TO 10123 i 
: CALL PEEK<LOC,A): : B=B+A : 

: NEXT LOC 

230 IF B06827 THEN CALL SOU 
ND<150,220,0): : PRINT "ERROR 
E NEI VALORI DELLE CALL LOAD 
, DA LINEA 140 A LINEA 170" 
ELSE CALL SOUND <150,1397,0 > : 
; PRINT "OK DA LINEA 140 A L 
INEA 170" 

240 ! CALL LINK<"RILOC") 

250 ! CALL LINK<"SPOLIN") 
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lunghi fino a quasi 32 Kbytes, sempre 
da cassetta, se divisi in più spezzoni da 
8 Kbytes max. ciascuno. L’ultima opzio¬ 
ne può essere utile per caricare giochi 
in assembler su cassetta. Ce ne sono 
degli ottimi in giro, generalmente su di¬ 
schetto e in formato per modulo EDl- 
TOR/ASSEMBLER. Non è tuttavia difficile 
la trasformazione degli stessi per Exten- 
ded BASIC. 

L’altra sera, ad esempio, ho trascorso 
un’oretta piacevole in una U.S. OPEN, 
cioè con «TENNIS», il favoloso gioco in 
L.M. della Nicesoft. che ho caricato da 
cassetta, in Extended BASIC, con la stes¬ 
sa routine che viene proposta a voi in 
questo numero. Niente sistema a dischii 

STRUTTURA DI CSALO 
(SAVE E LOAD) 

CSALO viene generato da tre program¬ 
mi distinti; 

1) LINEA25000 (Un prc^ramma BAISC 
fittizio, serve da contenitore) 

2) SPOLINEXT (SPOstatore di riferimenti 
LINee) 

3) CSAVEXT (SAVE e LOAD vero e pro¬ 
prio) 

LINEA25000 è il programma BASIC 
«dummy», fittizio, che verrà trasforma¬ 
to da SPOLINEXT. 

SPOLINEXT modifica ogni programma 
BASIC presente in memoria; il risultato è 
un programma BASIC in cui ogni linea di 
programma conterrà come istruzioni 
dò che era contenuto nella linea di pro¬ 
gramma a numero più basso. Tutta l’a- 


25000 

• 25000 

25001 

' A 

B 

C 

D 

rin qui—>! 

25002 

■ A 

E> 

C 

D 

■fin qui—>! 

25003 

• A 

B 

C 

D 

fin qui—>! 

25004 

! A 

B 

C 

D 

fin qui —>• 

25005 

‘ A 

ultima riga: fin 

qui — 

>u 


NOPRES LI 

R0,>2B00 

-) Segnala 'ERROR NO PROeRAM PRESENT' 


BLHP SERA 


CSAVE 

nOVB aSAVE.BCSlPAB -> Sisteia la copia del PAB in CPU RAN per una SAVE. 


LUPI NYMORK 



CLR 

R3 

-) R3 = zero se non c’e‘ altro seqaento 


nov 

91NPR06,RS 

-) Ottiene in RS l’indirizzo 

t 



di inizia caricaiento 


JEQ 

NOPRES 



NOV 

9ENPR06,R4 

-) 3)2002 c’e' priio indirizzo libero Lon Nenory 

t 



Lo si nette in R4 


JEO 

NOPRES 



S 

R5,R4 

*) Si ottiene in R4 la lunghezza del prograt 


JEQ 

NOPRES 



LI 

RO.MOOO 

-) Il Buffer e' a )1000 VOP RAN 


LI 

Rl,NYH0RK+6 

-) RI punta cosi* ai 6 bytes da trasferire 


LI 

R2,6 

-) R2 contiene il nunero dei bytes da passare 

t 



ora in VDP RAN. 


BLNP 

9VNBH 



NOV 

RS,R1 

-) RI inizia prograina in CPU RAN 


NOV 

R4,R2 

-) R2 nunero di bytes del progranna in CPU RAN 

1 



che unizia dove specificato da RI 


LI 

R0,>1006 

-) Il progranna sara* parcheggiato a partire da 

t 



)1006 VDP RAN 


BLHP BVHBH 



A 

R2,R0 

-) RO punta cosi' alla prina locazione libera in 

t 



VDP RAN, dopo il progranna 


nov 

3)2004,R6 

-) 3)2004 c’e' il puntatore all’inizio della DEF/REF 

t 



table. Lo si copia in R6. 


LI 

R7,>4000 

-) R7 contiene ora la fine della DEF/REF table 


S 

R6,R7 

-) Ottiene in R7 la lunghezza della DEF/REF table. 


LI 

Rl,nYH0RKfl4 

-) RI punta ora a R7 


LI 

R2,2 



BLHP BVNBH 

-) Passa il nunero delle DEFs nel Buffer VDP RAN 


INCT RO 

-) RO punta ora alla locazione successiva in Buffer VDP 


nov 

R6,R1 

-) RI punta a inizio DEF table in CPU RAN 


nov 

R7,R2 

-) R2 contiene la lunghezza della DEF TABLE da passare 

t 



in VOP RAN. 


BLHP BVnBH 



A 

R2,R4 

-) R4 contiene ora BYTES PROGRANNA f BYTES DEF/REF TAB. 


AI 

R4,8 

-) Aggiunge alla conta i seguenti nord in VDP RAN : 

t 



)1000, )1002, )1004, )XXXYf2 (vedi sopra a 'FORNATO 

t 



DEL PROGRAN*). 


NOV 

R4,3CSlPABf6 

-) Aggiorna la copia in CPU RAN del PAB. 

NOSAV 

LI 

R0,>0F80 



LI 

Rl.CSlPAB 



LI 

R2,14 



BLHP BVHBH 

-) Forna il PAB in VDP RAN. 

BSEC 

LI 

R1,>0F8D 

-) SAVE SU CASSETTA : Vedi Nan. Ed/As. pag. 253 


nov 

Ri,3)8356 

-) Cosi' 'POINTER* punta al prino carattere dopo 

t 



il none nel PAB. 


LI 

Rl,)0003 

-) Sono 3 i caratteri di *CS1* 


NOV 

RI,3)8354 

e ciò' va' a )8354 


LI 

Rl,)0800 

-) Occorre anche porre )08 a )8360 per segnalare 


NOVB Rl,a>836D 

una DSR CALL. 


LI 

RO,)OF8A 

-) Scrive *CSI' sul FAC < Floating Point Accun.) 
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LI 

R1,.^834A 

che si trova a >834A 


LI 

R2,>0003 



BLHP BVHBR 



CLR 

3>83D0 

-> Occorre anche porre a zero il nord a >83D0 


NOVB 3>83D0,3>837C -> Occorre settare a zero lo STATUS Byte. 


BLNP 36PLLW( 

-> Esegue il 'SAVE* su cassetta. 


DATA >003D 


t 



-> Va' a vedere se ci sono stati DSR errors. 


LI 

RO,.10FB1 

Leggi il secondo byte PAB in VDP RAN 


BLNP 3VSBR 



SRL 

RI,13 

-> Isola i 3 bytes di sinistra e spostali a destra. 


NOV 

RI,RI 

-> Vedi se sono zero. 


JEQ 

VEDI 

-> Si? Allora e* OK. 


LI 

RO, >2400 

-> No? Allora rendili Nost Sig. Byte 


BLHP 3ERft 

-> Vai a scriverò sullo scherio. 

VEDI 

CB 

3L0A0,3CSiPAB -> Se l’op-code per una LOAD non e' nella copia CPU 


JNE 

RETURN 

RAN del PAB, allora siaao in una SAVE. 


LI 

R0,>1000 

-> Indirizzo VDP RAN del BUFFER. 


LI 

R^NYHORKH 

-> RI punta a R3 del uorkspace in uso (NYNORX). 


LI 

R2,6 

-> Sono 3 i Nords che servono per ident. un prograna. 


BLHP 3VNBR 



NOV 

R3,R13 

-> Salva Identifier NEXT PR06RAN. 


LI 

R0,>1006 

-> Punta all’inizio del program in VDP RAN. 


NOV 

R4,R2 

-> R4 = nuaero bytes del prograaia. 


NOV 

RS,R1 

-> RS = inizio di caricaaento in CPU RAN del program. 


BLHP 3VNBR 



ABS 

Ri2 

-> Se R12 = zero non siaao in BLOAD. 


JEO 

NOBLO 



NOV 

R14.R14 

-> Se R14 = zero e* il oriao prograa a essere caricato. 


JNE 

SECOND 



NOV 

R1,R14 

-> Salva in R14 l’indirizza di inizio, una sola volta. 

SECONO ABS 

R13 

-> Se R13 = zero e' l’ultiao prograa a essere caricato. 


JNE 

BSEC 



NOV 

R14,3>83E0 

-> Nette in RO di 6PL Horkspace l’indirizzo di inizio. 


LHPi 

.>83E0 

-> L’esecuzione dei prograaai inizia seapre dal GPL 

t 



Horkspace O83E0). 


NOV 

R11,3SAVRET 

-> Salva indirizzo di ritorno del GPL Horkspace. 


BL 

IRÒ 

-> Esegue i prograui caricati. 


LHPl NYHORK 

-> Ripristina il uorskspace in uso precentenente. 


NOV 

3SAVRET,3>83F6 -> Ripristina RII di 6PL Horkspace. 


JNP 

RETURN 


SAVRET DATA 

>0000 

-> Salva qui' l’indirizzo di ritorno del GPL. 

NOBLO 

NOV 

R5,3>24F0 

-> >24F0 : Locaz. convenzionale (aia) per inizio 

t 



prograaaa. 


NOV 

R5,3>24F2 



A 

R4,3>24F2 

-> >24F2 : Locaz. convenzionale (aia) per fine 

t 



prograaaa. 


C 

R5,3>2002 

-> Il puntatore 3>2002 (priaa locaz. di aeaoria 


JNE 

AOR6EO 

libera), viene aggiornato solo se coincide con 

1 



indirizzo di caricanento. 


A 

R4,3>2002 

-> Aggiorna puntatore priaa locazione di aeaoria 

t 



libera. 


rea di memoria, impegnata preceden-1 
temente dalle istruzioni BASIC apparte-, 
nenti alle linee successive alla prima, si 
rende libera e atta a contenere un prò] 
gramma in L.M.. 

Il programma ottenuto non può essere' 
modificato, pena la distruzione totale 
dello stesso (collasso generale). Può es-"' 
sere però salvato e richiamato, da disco' 
e da cassetta. Può essere addizionato' 
anche di nuove linee, sia più alte che 
più basse, o anche intermedie a quelle 
già esistenti. Non si può effettuare il 
MERCE di questo genere di programmi,' 
ma essi possono ESSERE addizionati di 
un programma esterno in formato MER¬ 
CE. La porzione BASIC aggiunta succes-' 
sivamente funzionerà in maniera com¬ 
pletamente normale: potrà a sua volta 
essere variata, annullata, si potrà usare 
il REDO per la modifica dei numeri di li¬ 
nea, purché ci si mantenga fuori dell'a¬ 
rea originaria, quella sottoposta a SPOU- 
NEXT. il RESequence funziona regolar¬ 
mente. etc., etc.. Unica cosa, non mo¬ 
dificate MAI le linee modificate da SPO 
LINEXT. 

CSAVEXT è la routine di CSALO ottenuta 
con CALI LOAD. Viene fornita anche la 
sorgente, che si noterà, contiene una 
AORC a > FFD8, mentre le CALI LOAD 
si riferiscono alla zona di bassa memo¬ 
ria. Ci penserà successivamente un rilo¬ 
catore. contenuto in SPOLINEXT, a rilo¬ 
care CSAVEXT da bassa ad alta memo¬ 
ria. 


COME SI PROCEDE 

Non è facile, ogni errore di battitura si 
tradurrà in una mancanza di funziona¬ 
mento finale. Se avete amici, datevi il 
turno, soprattutto per le CALL LOAD. 

1) Innanzi tutto battere LINEA25000. È 
importante riempire le linee in modo 
che, alla fine, il SIZE sia di 23852 bytes 
of PROGRAM SPACE FREE. Se lo SPAQ 
FREE sarà di meno, non funzionerà il 
programma, se sarà di più, potreste 
non essere poi in grado di salvare il tut¬ 
to su cassetta, perché la lunghezza to¬ 
tale di XASSEMBLE supererà la lunghez¬ 
za massima consentita per una SAVE su 
cassetta di un programma BASIC con 
espansione di memoria inserita. Nel li¬ 
stato, la freccia che punta alla «!» di fi¬ 
ne linea dovrebbe aiutare in fase di bat¬ 
titura e. comunque, la fine linea coinci¬ 
de. all’infuori della prima e dell'ultima li¬ 
nea, con l'arresto forzato del cursore 
(BEEP). Terminato di battere, effettuare 
un SAVE CSI (DSK1) di LINEA25000. 

2) Fate un NE\A/, e battete SPOLINEXT. 
Finito di battere, fate un SAVE. Poi una 
CALL INIT, solo questa volta, poi mai più 
fino a spegnimento del computer. Poi 
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RUN: se non otterrete l’OK, correggete 
le linee segnate. Caricate ora (OLD) Ll- 
NEA25000. fate una CALI LINK («SPO- 
LIN»), e poi LIST. Se SPOLIN era battute 
correttamente il vostro listato sarà cosi: 
25000 125000, 25001 125000, etc, 
cioè tutte le linee punteranno al conte¬ 
nuto di linea 25000, altrimenti riguar¬ 
date con più attenzione SPOLINEXT: po¬ 
treste aver rovesciato qualche dato. Fa¬ 
te una CALL LINK («RILOC»): il cursore 
deve tornare subito, e apparentemente 
nulla sarà mutato. 

3) Fate un NEW, e battete CSAVEXT. 
Fate poi un SAVE, quindi un RUN. Se 
avrete l’OK è molto probabile che sia ef¬ 
fettivamente tutto giusto. Gli unici erro¬ 
ri possibili sarebbero quelli di inversione 
dei valori, o, più raramente, una com¬ 
pensazione interna fra gli errori. 

4) Ora eseguite una OLD per Ll- 
NEA25000. Eseguite una CALL LINK (tRI- 
LOC»). Alla riapparizione immediata del 
cursore avrete completato la prepara¬ 
zione di CSALO. Salvatelo su cassetta. 

5) Per controllo eseguite una CALL LINK 
(«CSAVE»). Dovreste ottenere un tWAR- 
NINC NO PROGRAM PRESENT». Infatti 
per CSAVEXT un programma in L.M. ini¬ 
zia, e termina, alle locazioni indicate, ri¬ 
spettivamente, dal contenuto di 
>24FO, e >24F2 (decimali 9456 e 
9458). Siccome normalmente queste 
due locazioni sorx) zero, si ottiene una 
segnalazione di errore. 

6) Altro controllo: CALL LINK («CLO- 
AD»). Dovreste ottenere l’avvio della 
routine di salvataggio su cassetta: «RE- 
WIND CASSETTE TAPE THEN PRESS EN- 
TER». Se ciò non accade riguardarsi tut¬ 
to CSAVEXT e anche SPOLINEXT: il rilo¬ 
catore è in SPOLINEXT. Se invece và tut¬ 
to bene premete «E», perché al mo¬ 
mento molto probabilmente non avrete 
nulla da caricare da cassetta come pro¬ 
gram file: un programma BASIC non và 
bene, occorre o un program generato 
da C^VE, o un program generato dalla 
routine «^VE» del modulo EDITOR/AS- 
SEMBLER. 

Chi ha l'EDITOR/ASSEMBLER si comporti 
cosi: 

1) Generare sia SPOLIN che CSAVE, con 
il listato riportato per l'EDITOR, e assem¬ 
blare in formato non compresso.. 

2) Comporre, da Ext. BASIC, solo Ll- 
NEA25000. 

3) Caricare SPOLIN <CALL INIT::CALL 
LOAD («DSK1.SP0UN»)::CALL LINK 
(«SPOLIN») >. 

4) Caricare, solo ora, non prima, CSAVE 
<CALL LOAD («DSK1 .CSAVE») >. CSA¬ 
VE andrà a piazzarsi a iniziare da 
>FFD8. Non fate CALL LINK («RILOC»), 


A0R6ED A R2,R0 

-) RO punta ora al byte lunghezza DEF table in VDP RAH 

LI Rl,nYilDRKi4 

-) RI punta a R2 

LI R2,2 


BLHP aVflBR 

-) Ottiene in R2 lunghezza DEF table. 

NOV 9)2004,RI 

-) 9)2004 puntatore all'inizio vecchia DEF table : 

t 

viene copiato in RI 

S R2,RI 

-) RI punta cosi' tanti bytes piu* in basso, quanto e' 

t 

e' lunga raggiunta alla DEF table. 

INCT RO 

-) RO punta ora a inizio copia DEF table in VHP RAH 

BLHP aVHBR 

-) Ottiene aggiunta alla DEF table in CPU RAN 

mV Rl,a>2004 

-) Aggiorna il puntatore alla DEF table. 

RETURN CLR RO 

-) Ritorna all’EnENDED BASIC 

NOVB R0,a>837C 


LHPI >83E0 


B 9)0070 


6PLLNK DATA HORKSP,COUNTE 

-) Vettori per la BLHP 96PLLNK. 

HORKSP BSS )20 

-) Horkspace di lavoro. 

RETDAT DATA RETADD 

-) Vettore per il ritorno dalla 6PL routine al nostro 

t 

prograMa. 

COUNTE nOVB 9)9802,RI 

-) Legge a che indirizzo sta puntando ora il 

t 

puntatore alla 6R0N. 

SHPB RI 


NOVB 9)9802,RI 

-) Sono due i bytes che coepongono un indirizzo in 

1 

in 6R0N, cosi ' co« io CPU RAN e VDP RAN. 

SHPB RI 

-) Il priao a essere traferito e* il Host Significant 

DEC RI 


NOV R1,R5 

~) Salva in RS il vecchio indirizzo. 

DECT RI 

-) In RI c’e' l’indirizzo 6R0H per una INLLNK. 

NOVB 9)8373, R2 

-) Copia il puntatore al RETURN STACK. 

SRL R2,8 

-) Rendilo Least Significant Byte. 

AI R2,)8300 


INCT R2 

-) R2 punta cosi' ad una nuova routine nel SUBROUTINE 

NOVB Rl,tR2 

-) Il prieo byte della routine e' cosi' sisteeato 

SHPB RI 

-) Si appresta a passare il secondo byte. 

NOVB RI,9)0001(R2) 

-) Passa ora il secondo byte dell’indirizzo 8R0N. 

SHPB R2 

-) Risisteia i Bytes all’interno di R2. 

NOVB R2,9)8373 

-) Risisteia il SUBROUTINE STACK POINTER. 

NOVB tR14r,8)9C02 

-) Traferisce il DATA seguente la BLHP 96PLLNK nel 

NOVB tRM«,a)9C02 

puntatore all’indirizzo 6R0N: )9C02 e' il GRNNA. 

NOV a)2000,R4 

-) Salva in R4 il vettore di entrata per CALL LINK. 

NOV 8RETDAT,9)2000 -) Inserisce il vettore al nostro ritorno. 

LHPI )83E0 

-) GPL routine parte seipre da GPL Horkspace : )83E0 

B 9)0070 

-) Si allaccia all’interprete GPL. 

RETADD LHPI HORKSP 

-) Se tutto e' ok e' qui che ritorna alla nostra 

t 

GPLLNC routine. 

NOV R4,9)2000 

-) Restore il vecchio vettore per il controllo 

t 

DEF-CRLL LINK. 

NOVB R5,9)9C02 

-) Ripristina il vecchio indirizzo GRON. 

SHPB RS 

-) Si prepara a passare anche il byte di destra. 

NOVB RS,a)9C02 


RTHP 

*) Fine della GPLLNK e ritorno, dalla BLHP, al 

t 

segaento che ha chiaiato la BLHP 9GPLLNK. 

END 
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perché rwn c’è proprio nulla in bassa 
memoria da rilocare. 

5) Avrete cosi ottenuto CSALO. Salvate¬ 
lo su disco. 

Chi ha la MINI-MEMORY non potrà gio¬ 
varsene. 

COME SI UTILIZZA CSALO 
CSALO. oltre a essere inserito in XAS- 
SEMBLE, può essere usato anche da so¬ 
lo. 

All’inizio del programma, vedi listato as¬ 


100 ! Micro & Personal Compu 
ter 

110 ! CSAVEXT, ad AORG >FD88 
ri locato in bassa 
memoria, 

da >24F4 a >2724 

120 ! Deve essere ri locato 
a >FD88 con SPOLINEXT 
(vedi) prima dell’uso. 

130 f Da usare per routines 
"SAVE" o "LOAD" con 
cassetta, o da solo o 
per XASSEMBLE. 

140 ! San Donato Milanese 
Dicembre 1984 
Paolo Bagnaresi 

150 CALL LOAD (16*344,66, 76, 79 
,65,68,32,253,196) 

160 CALL LOAD(16352,67,76,79 
,65,68,32,253,206) 

!70 CALL LOAD(16360,67,83,65 
,86,69,32,253,228) 

190 CALL L0AD(ai94,39,140,63 
,216) 

190 CALL LOAD<9460,4,96.253, 
228,4,96,253,206,4,96,253,19 
6 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ) 

200 CALL LOAD(9482,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 . 0 , 0 , 0 , 0 , 0 , 0,0 
, 0 , 0 . 0 ) 

210 CALL LOAD(9504,6,5,6,O,1 
6,0,0,0,32,0,96,3,67,83.49,4 
6,2,224,253,148,7,12) 

220 CALL L0AD(9526,4,206, 16. 
3,2,224,253,148,4,204,216,32 
,253,181,253,182,16,54,2,0,4 
3,0) 

230 CALL LOAD(9548,4,32,32,5 

2.216.32.253.180.253.182.2.2 

24.253.148.4.195.193.96.36.2 
40,19,243) 

240 CALL I.OAD<9^70,193,32,36 
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sembler, ci sono tre BRANCH: ognuna 
porta ad una routine diversa. 

>FD88 (bytes dee. 253,136) -> porta 
a CSAVE 

>FD8C (bytes dee. 253,140) -> porta 
a CLOAD 

>FD8C (bytes dee. 253,144) -> porta 
a BLOAD 

CSAVE sta per «Cassette SAVE». QOAD 
per «Cassette LOAD», BLOAD per 
«Branch all’indirizzo di primo carica¬ 
mento dopo LOAD». 


,242,19,240,97,5,19,238,2,0, 
16,0.2,1,253,154,2,2,0.6) 


250 CALL LOAD(9592,4,32,32,3 
6,192,69,192.132,2,0,16,6.4, 
32,32,36,160,2,193,160.32,4) 


260 CALL L0AD(9614,2,7,64,0, 
97,198,2,1,253,162,2,2.0,2.4 
,32,32,36,5,192,192,70) 

270 CALL LOAD(9636,192,135,4 
,32.32.36.161,2,2,36,0,8,200 
,4,253,188,2,0,15,128.2. 1) 


280 CALL LOAD<9658,253,182,2 
,2,0. 14., 4,32,32,36,2, 1, 15, 14 
1,200,1,131,86,2,1,0,3) 

290 CALL LOAD<9680,200,1,131 
,84.2.1,8,0,216,1,131,109,2, 
O,15.138.2,1.131,74,2,2) 

300 CALL L0AD<9702,0,3,4,32. 
32,44,4,224,131,208,216,32,1 
31.208,131,124,4.32.255.56.0 
.61 ) 

310 CALL L0AD(9724,2.0,15,12 
9.4,32,32,40,9,209,192,65,19 
,4,2,0,36,0,4,32,32,52) 


320 CALL LOAD<9746,152.32,25 
3,181,253,182,22,62.2.0,16,0 
,2,1,253,154.2,2,0.6,4,32) 


330 CALL L0AD<976a.32,44,195 
.67,2.0,16,6,192,132,192,69, 
4,32,32,44,7,76,19, 19, 195,14 
2 ) 


Appena formato. CSALO ha anche le] 
DEF pronte, ma una volta che spegnete] 
il computer le DEF spariscono, e noni 
riappaiono più, neppure dopo una OLdJ 
di CSALO. E allora? É semplice, sfruttia-1 
mo il puntatore a >2000, risparmian-J 
do cosi memoria. Evitiamo anche, cosi.1 
la duplicazione delle DEF CSAVE. CLO-J 
AD, BLOAD, che avremmo dopo l’utiliz-^ 
zo della routine CSALO da parte di XAS-1 
SEMBLE. Abbiamo parlato del puntatore] 
a > 2000, nel numero di novembre. Lo1 


370 CALL L0AD<9856.0,2,4,32,1 
32,44,192.96,32,4,96,66,5, 19j 
2,4,32,32,44,200,1,32,4) 

38Ó CALL L0AD(9878,4,192,2161 
,0,131,124,2,224,131,224,4,91 
6,0, 112,255,60.255,94,0,0.0, ^ 
0 ) 

390 CALL LOAD<9900,0,0,0,0,0] 
,O.0,0,0,0,O.0,O,0,0,0,0,0,0] 
. 0 . 0 , 0 ) 

400 CALL LOAD<9922.0,0,0,0 
,0,255,164,208,96,152,2,6, 
3,208,96,152,2,6,193,6,1) 


410 CALL LOAD<9944,193,65, 

65,208,160.131,115,9,130,2 
4,131,0,5,194,212,129,6,19 
216,129) 

420 CALL LOAD(9966,0,1,6,1 
,216,2,131,115,216,62,156, 
216.62,156,2,193,32,32.0,2 
.32) 

430 CALL LOAD<9988,255,92. 
,0,2,224,131,224,4,96,0,11 
2, 224,255,60,200,4,32,0,21 
5) 

440 CALL LOAD<100IO,156,2, 
197,216,5,156,2,3,128,0,0) 


450 CALL CLEAR 

460 FOR L0C=9460 TO 10019 
CALL PEEK(LOC,A): : 8=B>A 
NEXT LOC 


340 CALL LOAD<9790,22.1.195, 

129,7.77,22,191,200,14,131,2 
24,2,224.131.224,200,11,254, 
244.6.144) 

350 CALL LOAD(9812,2,224,253 
.148,200,32.254,244,131.246, 
16,27,0,0.200,5,36,240,200,5 
,36,242) 


470 IF B041238 THEN CALL 
UND<150,220,0); ; PRINT “ER 
RE NEI VALORI DELLE CALL L 
D, DA LINEA 190 A LINEA 44 
ELSE CALL SOUND<150,1397, 
:: PRINT “OK DA LINEA 190 
LINEA 440" 

480 ; CALL LINK("BLOAD") 


360 CALL LOAD(9834.168.4,36. 
242,136,5,32,2,22,2,168,4,32 
,2,160,2,2,1,253,152,2,2) 


490 f CALL LINK("CSAVE") 

500 ' CALL LINK("CLOAD") 
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utilizziamo anche ora per collegarci di¬ 
rettamente alla porzione di programma 
in L.M. che ci interessa. 

Dopo la OLD di OSALO, eseguire una 
CALL INIT e poi: 

- per CSAVE: CALL LOAD 

(8192,253,136)::CALL LINK («CSA- 

\/E»)::CALL LOAD (8192,32,90) 

- per CLOAD: CALL LOAD 

(8192,253,140)::CALL LINK («CLO- 

AD»)::CALL LOAD (8192,32,90) 

- per BLOAD: CALL LOAD 

i (8192,253,144)::CALL LINK («BLa 

' AD»)::CALL LOAD (8192,32,90) 

j Notare che, dopo la prima CALL LOAD, 

1 il nome della CALL LINK può essere a 

piacere, il BRANCH avverrà ugualmente 



all’indirizzo dato dalla CALL LOAD. L’ulti¬ 
ma CALL LOAD serve per ripristinare il 
puntatore in modo che segni >2050, 
altrimenti qualsiasi altra CALL LINK, per 
altri progranrìmi in L.M. eventualmente 
presenti in memoria, porterebbe inevi¬ 
tabilmente sempre all’ultima routine ri¬ 
chiesta con questo tipo particolare di 
ingresso ad un programma in L.M.. 
CSAVE può essere utilizzata solo dopo 
la sistemazione deH’indirizzo di inizio di 
caricamento e dell’indirizzo di fine cari¬ 
camento, altrimenti otterrete un «WAR- 
NINC NO PROGRAM PRESENT». Le loca¬ 
zioni sono, come detto sopra. > 24FO 
(dee. 9456). >24F2 (dee. 9458). È un 
po’ complesso; se il programma da sal¬ 


vare inizia a >24F4, e termina a 
>3022, procedere cosi: scomporre in 
bytes gli indirizzi, trasformarli in deci¬ 
male, ed effettuare CALL LOAD per i va¬ 
lori ottenuti. Nell’esempio > 24 - 36. 
>F4 - 244. >30 - 48. >22 - 34. 
Eseguire quindi: CALL LOAD 

(9456.36.244.48.34). 

CSALO può essere utilizzato in qualsiasi 
programma Ext.BASIC di vostra creazio¬ 
ne. per richiamare routine in L.M. che 
creerete con XASSEMBLE, a patto che 
sia la prima porzione del programma 
che ideerete. 

Buon lavoro. 

Paolo Bagnaresi 


LISTATI DE! PROGRAMMI 


LJa questo numero in poi i listati BASIC 
ed EXTENDED BASIC appariranno stam¬ 
pati sulla nostra rivista cosi come essi vi 
appariranno su! video dopo essere stati 
digitati. Ciò vi faciliterà il compito di de¬ 
bugging (ricerca degli errori di battitu¬ 
ra): basterà osservare un disallineamen¬ 
to tra il vostro listato e quello originale 
della rivista per capire che avete ag¬ 


giunto o tolto qualche carattere. 

I programmi saranno, nei limiti del pos¬ 
sibile, tutti RESequenziati da linea 100, 
con un incremento di 10 fra linea e li¬ 
nea. 

Ciò faciliterà la battitura: si imposta 
NUM e si procede senza dover aggiun¬ 
gere, per esempio, la riga 277 o la riga 
903. Inoltre, questo metodo eliminerà 


la possibilità di dubbi (ex: ma questo qui 
che accidente è, un DATA o un numero 
di linea?). Coloro che intendono inviare 
programmi BASIC per pubblicazione, 
eseguano un RES prima di accingersi a 
descrivere l'uso dei blocchi del pro¬ 
gramma, e poi descrivano il loro pro¬ 
gramma in base ai nuovi numeri di linea 
ottenuti. 


RISPOSTE IN BREVE 


— Alcuni lettori hanno avuto difficoltà 
ad adattare i programmi Assembler, 
pubblicati nei numeri scorsi, alla Mini 
Memory. Purtroppo tali programmi, co¬ 
si come sono stati pubblicati, non pos¬ 
sono venire accettati dall’assemblatore 
Une-by-Hne. Ci ripromettiamo, in uno 
dei prossimi numeri, di tornare più dif¬ 
fusamente sull'argomento. — Alcuni 
lettori chiedono irtformazioni riguardan¬ 
ti libri che trattino l'Assembler del TI-99. 
Le pubblicazioni reperibili purtroppo so¬ 
no poche, ma fortunatamente ben 
scritte. Eccone comunque un elenco: 

1) Denise Amrouche-Roger Didi: Initia- 
tion au Langage Assembleur du Texas 
Instruments TI-99/4A. Ed. SHIFT-27, Rue 
du Cenerai Foy-75008 PARIS (FRANCIA). 

2) M.S. Morley: Fundamentais of Tl- 
99/4A Assembly language - TAB Books 
Ine. Blue Ridge Summit, PA 17214-USA. 


3) Molesworth: Introduction to Assem¬ 
bly Language - Editore non noto. Tale 
volume è reperibile presso la NOVEL 81 
- V. Crispi, 57 - Roma - Tel. 
06/6783424. 4) Beginning Assembly 
Language for thè TI Home Computer - 
D&D Publishing CO. -3177 Bellevue - 
Toledo - OHIO 43606-USA. Di quest'ulti¬ 
mo libro abbiamo notizie molto scarse 
e non lo conosciamo direttamente, per¬ 
tanto, se qualche lettore avesse notizie 
più dettagliate, saremmo ben lieti di 
farle conoscere a tutta la comunità de! 
TI-99. Presso la Nove! 81, Via F. Crispi 
57, Roma, è disponibile per il TI-99 Har¬ 
dware e Software importato diretta- 
mente dagli USA. Oìi ha problemi di re¬ 
peribilità de! modulo Extended Basic o 
espansione di memoria laterale a 32 K 
può contattare la NEWSOFT, Via Jacini 


4, Milano. — Alcuni lettori vogliono sa¬ 
pere più in dettaglio sotto quale forma 
si possono mandare programmi per l'e¬ 
ventuale pubblicazione sulla rivista. Ve¬ 
diamo di riepilogare le condizioni a cui 
si devono attenere i lettori: 1) Inviare il 
programma su cassetta o floppy corre¬ 
dato da un commento dettagliato. Ri¬ 
cordarsi di inserire anche nel program¬ 
ma eventuali commenti. Il listato non è 
indispensabile, meglio se c'è. 2) I pro¬ 
grammi pubblicati verranno rimunerati 
con una cifra variabile a partire da L. 
40.000 fino a L. 100.000. 3) Il materia¬ 
te, inviato per la pubblicazione, non vie¬ 
ne restituito. 4) Programmi molto lun¬ 
ghi e particolarmente interessanti che, 
seppur meritevoli, per esigenze di spa¬ 
zio non possono venire pubblicati, po¬ 
tranno comunque venire recensiti dalla 
redazione. 
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colloquio. In questa 
direzione quindi 
vanno concentrati gli 
sforzi, va discusso il 
problema, vanno 
cercate soluzioni: 
quando si comincerà 
ad operare cosi, 
vedrete ohe anche il 
1650 arriverà in 
Italia. 

Q Distinti Signori, un pa¬ 
lo di anni fa l»o comperato 
un computer, non certo 
un giocattolo ma il più per¬ 
fezionato fra quelli che 
non hanno floppy o moni¬ 
tor incorporato. E dopo un 
certo tempo, ho comincia¬ 
to ad avere rimpresslone 
che qualcosa non andava. 
Non nel mio apparecchio, 
ma piuttosto nel mondo 
del mlcro e del personal in 
genere. Ho apprezzato 
sempre meno le ben cono¬ 
sciute limitazioni, per 
esemplo dovere battere 
un programma lungo, 
complicato e puntiglioso 
(e non ho nemmeno Pa¬ 
scal!) per qualunque co¬ 
sa, anche le funzioni più 
semplici. Mi è sembrato 
avere in mano, se non un 
dinosauro, almeno una 
specie di auto, modello 
1905: un’apparecchio li¬ 
mitato, complicato, esi¬ 
gente e 'nudO": aqueltem¬ 
pi si comperava spesso un 
telalo nudo, che bisogna¬ 
va poi fare carrozzare da 
un vero carrozziere. 
Ahimè, se nelle auto 1900 
la carrozzeria era fatta 
una volta per sempre (o 
quasi), nel mlcro e perso¬ 
nal bisogna in un certo 
modo rifarla ogni volta 
che vuole fare qualunque 
cosa... e ho cominciato a 
odiare l’idea di dovere di¬ 
pendere da softv/are o pro¬ 
grammi difficili e compli¬ 
cati per ogni cosa che in¬ 
tendo fare. 

Ho abitato molti anni nel 
Nord Europa, dove la gen¬ 
te magari piagnucola da¬ 
vanti allo difficoltà, ma 
poi con lodevole testar¬ 
daggine si rimboccale ma¬ 
niche e tenta almeno qual¬ 
cosa, e mi sono messo al 
lavoro per concepire qual¬ 
cosa a misura di utente, 
cioè ultra-facile da usare 
da chiunque, soprattutto 
da chi ha ben altri gratta¬ 


capi per mettersi a reiglo- 
nare in termini logico-ma¬ 
tematici o di BASIC. Cosi 
cominciai a mettere a pun¬ 
to ISY (o SIMPLEX, © 
1983). 

Oggi, non solo non rinne¬ 
go ISY ma peggio (perse¬ 
verare dlabollcum!), alcu¬ 
ni strani dubbi mi passa¬ 
no per la testa: e se l’indu- 
strla del piccoli computer 
fosse condannata a spari¬ 
re quasi completamente 
entro pochissimi anni? E 
se il personal passasse di 
moda, esattamente come 
la CB, le calcolatrici tasca¬ 
bili e altre mode? Chi mi 
assicura che la gente non 
si stuferà entro 2-3 anni 
dei soliti giochetti sempre 
uguali, del soliti alleni da 
disintegrare, dei soliti la¬ 
birinti? Resisterà il mlcro 
alla prossima ondata di 
super-gadget, di TV a 
schermo piatto, con alta 
definizione, stampante, 
Vldeotext e chissà quanto 
e che altro? 

Insomma, penso che il 
computer di gestione re¬ 
sterà, ma il computer fa¬ 
sullo e per giochetti e de¬ 
stinato a una fine rapida, 
o a una svalutazione al 
rango di giocattolo made 
in Taiwan, molto prima di 
quanto molti credono, e 
questo solo perchè quan¬ 
do il prodotto «tirava-, 
nessuno si è preoccupato 
di farlo meglio, o almeno 
semplice per l’utente. For¬ 
se tutti hanno sbagliato a 
credere in un «futuro pie¬ 
no di computer-, cosi co¬ 
me altri hanno sbagliato 
15-20 anni fa a immagina¬ 
re che oggi, come perfora¬ 
tori e perforatrici di sche¬ 
de e nastri da grossi com¬ 
puter di gestione, avreb¬ 
bero dovuto lavorare cen¬ 
tinaia di migliala di perso¬ 
ne. 

Forse i plU intraprendenti 
del vostri lettori, coloro 
che pensano sistemarsi 
un giorno per conto loro, 
saranno interessati in 
ISY; ormai, sistemi con 
Z80, BASIC e 64K se ne fa¬ 
ranno anche perfino in 
Mongolia, e ci vuole ben al¬ 
tro per reggere la concor¬ 
renza e stare al passo con 1 
tempi. ISY significa un lin¬ 
guaggio diretto, o un’in¬ 
terprete di cui molte istru¬ 
zioni sono spesso micro- 
programmi o spezzoni di 


programma in ROM. Ciò 
potrebbe comportare di¬ 
versi «banchi- di ROM per 
un totale di magari 200 K 
(e quasi ci siamo alle me¬ 
morie di 256 K) e un fun¬ 
zionamento forse più len¬ 
to, almeno airinlzlo. Pen¬ 
so che non serve a niente 
avere computer ohe farmo 
milioni di operazioni al se¬ 
condo, se poi ci vogliono 
milioni di secondi ( - set¬ 
timane, debugging com¬ 
preso) per tirarne fuori 
un buon programma. Con 
ISY o qualunque roba sl¬ 
mile, buona parte del soft¬ 
ware destinato al pubbli¬ 
co in genere diventa inuti¬ 
le; perchè chiunque può 
rifarlo a casa e anche me¬ 
glio, dopo aver letto un 
manuale non piU compli¬ 
cato di una rivista a fumet¬ 
ti. Per certe applicazioni il 
BASIC resta la migliore so¬ 
luzione, per altre è il con¬ 
trarlo, ma 1 sistemi non so¬ 
no comparabili nè diretta- 
mente concorrenti, visto 
che il BASIC è ben oltre la 
portata e la pazienza della 
maggioranza degli utenti 
di computer. 

Allego alcuni esempi di 
istruzioni in ISY, che sot¬ 
tometto al vostro giudizio 
imparziale e indipenden¬ 
te, e vi chiedo inoltre di fa¬ 
re sapere al vostri lettori 


l'esistenza o le possibilità 
di questo tipo di linguag¬ 
gio. Dopodiché, se qualcu¬ 
no è interessato, lo faccia 
sapere, se no tanti saluti e 
amici come prima! 
Distinti saluti 

ROBERT LOMBARDI 
ROMA 

□ Pubblichiamo 
questa lettera che 
tutto sommato 
contiene delle idee 
che possono destare 
interesse e voglia di 
discutere. Gli esempi 
inviati a noi sono 
troppo lunghi per 
poter essere 
pubblicati, ma credo 
che 11 slg. Lombardi 
non abbia problemi a 
chiarirsi con chi è 
interessato ad 
approfondire la 
questione; l’idea di 
fondo del suo 
linguaggio è buona: 
non ci sentiamo di 
aggiungere altro, 
vista la grande 
quantità di linguaggi 
di programmazione, 
più o meno diffusi, in 
circolazione nel 
mondo. 


Nella rubrica Texas del 
numero scorso nel mon¬ 
taggio dell’ultima parte 
di listato riguardante 
XASSEMBLE si è persa 
l'ultima colonna del te¬ 
sto, che quindi a partire 
dall’istruzione 400 del li¬ 
stato a pag. 180 manca 
dell'ultimo numero In 
ogni riga. Ripubblichia¬ 
mo quindi qui sotto la 
parte incompleta, scu¬ 
sandoci per l’inconve¬ 
niente. 


4-*i0 CAIL 

15'.». 2./,. 193,6. • • 


410 CAI.L L0AD<9944, |9;.65,6 
65.r«.'0.160,1^1,115.9, i30.r, 
4. I*»4.2I?. 129.6, 195 

.16,1291 


42" CAtL l.(iAD<9966.0, 1,6. 194 
.216.7.ITI,I15.216,62.156,2, 


216.62,156.2,I 9 T, 32 .52.0,260 
,32) 

430 CALL LOAD(99O0,255.92.3: 
.0,2,224.131.224,4.96,0.Il2 
2,224,255.60,200,4.32,6.216 
5) 


440 CALL t.OAO< lOCIO, 156. 2.6 
197,216,5,156,2,3,120.0,0) 


450 CA4.L CLEAK 


460 POP L0C*'946<'» TO 10019 ti 
CAIX P€EK(l.OC.A) I I 0-f<*A tx 
NEXr LOT 


470 IP >41238 ThEN CALt SO 
•JflDU 50 , 220.0) I » PRINT “ERRO 
RE NEI VALORI DELLE CAI l LOA 
0, DA LINEA 190 A LINEA 44u" 
else CALL S01;ND( I5v. I 397 , 0 ) 
i: PRINT “OK DA LINEA I90 A 
LINEA 440" 


400 • CALL LIN> <"PLOAD") 


490 • CAl.L LIN>. ("CSAVE") 


5o0 ♦ CALL LIN> fCLOAD") 
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